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module uafmain —_ = stort. 

anguage . 

ident. o *vOs-800") 

eddress ing_node (external=general, nonexternal=general) 
= 


begin 
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‘@ 
1980, 1982, 1984 BY 


ie COPYRIGHT (c) 1978 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
is RIGHTS RESERVED. 


:# ALL 

:* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
'* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
:* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
:* COPIES THEREOF MAY NOT Be PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
i. TRANSFERREOY” NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


:* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
- CORPORAT Ow NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


ie DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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FACILITY: System Management Utility Program 
ABSTRACT: 
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This program allows the system manager to maintain the user 
authorization file which contains usernames, passwords, quotas, 
and defaults. The following functions are provided: 


i 

i 

' 

i 

i 

' 

: ADD = add a new user record to the authorization file (UAF) 
: COPY = copy @ user record, give copied record a new name 
: DEFAULT = change a default value 

; EXIT = exit program and update file 

: HELP = ask for Crptene ion 

: LIST = complete List of records to file 

: MODIFY = change one or more values for a user 
: REMOVE = remove a user record 

; RENAME = rename a user record (COPY; REMOVE) 
: SHOW = display the values from a user record 
t 

i 

i 

i 

i 

i 


ENVIRONMENT: 
AUTHOR: Henry M. Levy, CREATION DATE: 1-June-1977 
MODIFIED BY: 
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NOW Swit 


wns 
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Change all internal messages to calls to LIBSSIGNAL and 
the message utility -- place all messages in UAFMSG.MSG 


V03-024 LY0494 Larry Yetto 11=JUN-1984 12:59 
Fix noise error message ———. from ADD/ID/USER=* caused 


a 
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VOe~000 f-an-19 15:84:% UAF .BUGSRCJUAFMAIN.B32; 1 v 
H 28 1! v03-024 Jn 0036 Lawson, Jr. He -1984 4 . ; 
; 1} e@ UPGRADE, DOUNGRADE, TMP INL PRAUNL privite eges. : 
; @& 7! " H temporary work-arou t is mar mee in the a : 
: 2 : : margin with !** in routine ‘print =PRIV : 
: ef 1/ v03-023 JRLO027 John R. Lawson, Jr. S-Jul-1984 11:01 : 
; 66 1! Add MODIFY/SYSTER’ _PASSWORD=xxxxx to modify the system : 
a : : password. ; 
: 89 1 v03-022 gorcoes n R. Lawson, Jr care NEUneC 10:47 ; 
: oS ! } Find better nenes “ter UAFS_NEWHSG10 and UAFS_NEWMSG15 : 
: 70 ii v03-021 JRL0020 John R. Lawson, Jr. 09-Jul-1984 15:51 ; 
: g) ; Bark when a proxy name is changed with the RENAME command. : 
ha: 1/ v03-020 ae hd n R. Lawson, Jr. 02-Jul-1984 22:13 ; 
; | «676 7% dify GET_UAF RECORD so that it does not get the system . 
: Le ! pessuera record. : 
2 1 v03-029 JRLOO13 n_R. Lawson, Jr. 02-Jul-1984 12:28 ; 
: re } Display privileges. of users in groups less than .EXESGL_SYSUIC ; 
: 80 1/ ; 
3 | v03-028 JRLO010 John R. Lawson, Jr. 25-Jun-1984 15:56 ; 
3 1! Changed ‘X'/'=" to ‘#'/'=" in primary/secondary access : 
: } : display. : 
; 1 V03-027 JRLO008 John R. Lawson 21-Jun-1984 14:00 ; 
$ 1! Add supeert for the /PWDcAPIRED estes (pre-expired ; 
; 1 : password). : 
; 1 i V03-026 JRL0006 John R. Lawson, Jr. 20-Jun-1984 12:28 ; 
: : : Obliterate operator's console messages : 
; 1 v0O3-025 JRLO002 John R. Lawson, Jr. 15-Jun-1984 09:55 : 
: 1 i 
3 +! ; 
3 ,: : 
; 7! : 
; 1! : 
3 1! : 
; 1! > 
3 1! : 
$ 1: : 
3 1! . 
$ 1! $ 
3 1! 2 
; - : 
; 1: : 
3 1! : 
3 1! : 
: 1! : 
: 1: : 
3 1! : 
; 3}! : 
3 1! 


FUNASSSLEASRANLSSSLESRANLSSSLEAFAT= 


0098 by a flag not properly being s 
1 1 v03-023 pane Mark Bramhall -May-1984 
1 101 unused CT flsore to TPARSE definitions. 
1 1 ; ia. DISRECONNECT 
: : Add security auditing for SYSUAF/NETUAF changes. 
1 105 VC3=-022 LY0474 Lorry 9-APR-1984 08:32 
1 1 Zero the login fa uty oy last login fields 
} 108 on a copy operation. 
1 1 VO3-021 LY0466 Lar 22-MAR-1984 13:52 
: 119 Add support for the. Fiohts data base functions 
1 16 v03-020 a postgd Andrew C. Goldstein, 24-Feb-1984 23:21 
1 Vi? Clean up dispiay formatting 
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115 1 v03-019 ACG0397 Andrew C. Goldstein, 4 16:27 ; 
179 : Add DISREPORT to flags, clean up record locking : 
18 1 v03-018 ACGO388 Andrew C. Goldstein, 12-Jan-1984 19:21 ; 
11 1 Add command input to handle new UAF features; ‘ 
: , ; general code cleanup : 
1 § 1 v03-017 ACGO385 Andrew C. Goldstein, 6-Jan-1984 18:28 ; 
1 1 V4 UAF format change; remove read-only under installed : 
! ¢ : SYSPRV feature; misc. code cleanups : 
1 § 1 v03-616 TMKO001 Todd a. Katz 10-0c t-1983 : 
1 1 Add JTQUOTA (job-wide logical name table creation quota) : 
: 8 : qualifier, ‘ 
130 1 vO3-015 LMP0153 L. Mark Pilant, 13-Sep-1983 11:57 
131 ; Add minimal support for alphanumeric UICs. 
: 1 014 JWT0105 Jim tospue 30-Mar-1983 
35 ; Small changes to CLITABLES implementation. 
1 013 JWT0104 Jim Teague 29-Mar-1983 
37 ; Add CLITABLES qualifier. 
012 wMC0001 Wayne Cardoza 15-Mar-1983 
Add MAXDETACH qualifier. 
011 JWT0097 Jim Teague 23-Feb-1983 
Fix RENAME problem with proxy entries. 
010 JWT0096 Jim Teague 08-Feb-1983 


Log NETUAF changes to console, too. 


009 JWT0087 Jim Teague 11-Jan-1983 
Change SYSWSQUOTA for created UAFs to 350 


008 JWT0082 Jim Teague 05-Jan-1983 
Fix problem with LIST/PROXY. 


007 JWT0079 Jim Teague 15-Dec-1982 
Enlarge output field for BYTLM; reset pending 
mail count for COPY operations. 


006 JWT0072 Jia Teague 03-Dec-1982 
Add giobel lLongword which can be patched to 


enable/disable console logging of SYSUAF mods. 
005 JWT0069 Jim Tea 24-Nov-1982 
Allow redefinition of sys$output. 
004 JWT0057 Jim feoque 21-Sep-1982 
ned 9 ngseeue to tell whether or not NETUAF was 
mo ed. 
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003 JWT0042 Jim Teaque 15-Jul-1982 
Make SYSUAF.LIS and NETUAF.LIS world noread. 
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. TF 172 1! 002 JWT0036 Jim Teague 08-Jun-198 : 
: 178 0178 1 Add full wildcarding to’show/proxy : ; 
: 175 0175 1 001 JwT0022 Jim Teague 17-Mar-1982 

3; ire pi78 1 } Fix bug that caused failure to reparse command Line for 

s 177 0177 1! wildcard modifications. List default device on its own 

; #178 0178 1! Line for show/full. 

: 179 0179 1! 

> 6180 0180 1 !<- 
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BISARE 


require 


TABLE 


forward 


Require files 
*LibS:uafreq'; 


; INCLUDE FILES: 
library "SYSSLIBRARY:LI6.L32'; 


OF CONTENTS: 


routine 
start, 
setup : novalue, 
add_uaf : novalue, 
add_proxy : novalue, 
remote_parse, 
copy_uaf, 
create_proxy : novalue, 
modify_uaf : novalue, 
modify_rec, 
remove_uaf : novalue, 
remove _proxy : novalue, 
rename_uaf : novalue, 
adjust proxy : novalue, 
default_uaf : novalue, 
List_proxy : novalue, 
List_uaf : novalue, 
show_user_uaf  : novalue, 
show_proxy : novalue, 
locafte_proxy, 
et_proxy_record, 
isplay_proxy : novalue, 
wild_user, 
display _brief. 
classify_priv, 
display full, 
eneotey news : novalue, 
convert _time : novalue, 
print oriv : novalue, 
ild_ini_recs =: novaiue, 
t_user_record, 
ocate_user, 
get_uaT_record, 
get_cad_line 
as : novalue, 
{nt -SYS_msg : novalue, 
help_uaf : novealue, 
exit_uaf : novalue, 
SIGNAL_SYNTAX : novalue, 
accSexit : novalue, 
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controlling code 

! open initial files 
nsert new user record 
' insert new proxy record 
' parses ‘‘node: 
copy user record 


AX-11 Bliss-3 


v 
UAF .BUGSRC JUAF MAIN. 


: remoteuser’’ 


create NETUAF.DAT proxy file 


update user record(s) 


update a user record action routine 
remove username from file 


remove & proxy record 
rename user record 


4 cd remove/update proxy record 


change de 


List proxy entr 
List file routi 
display user record 


ault record 
jes in NETUAF.LIS 
ne 


display proxy record at terminal 
9 


access 


ven proxy record(s) 
read single prox 
format and outpu 
user wild card routine 


record 
&@ proxy entry 


writes a brief user display 
classifies contents of priv vector 
writes the full user display 
display hourly restrictions 

convert time value to string 


rint privilege 
ild initial file 
and system ma 


t username 


ookup user record 


ts 
records for default 


ope secere 


routine to deal with record locking 
ommand Line 


prompt feratasl for input 
Output system message file message 
output formatted message 


help routine 
nor 


Syl exit routine 
missing qualifier 


exit and cleanup routine 


— 
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UAFMAIN -Jan-1985 17:26:07 AX-11 Bliss-32 v4 
V06~000 “Oct-19 13:84:96 UAF .BUGSRCIUAFMAI 
> 239 , | uafSmod_sys pud : novalue, ! modify the system password 

: ret : ! security_audit : novalue; ! Perform a security audit 

3 2g 1 Linkage 

st 1 fmg_match = jsb (register = é register = 3 register = 4, 

: 266 | 1 register = $ : notused (16, 11); 

: 245 0 1 

H r¢ 0340 1! 

3 4 0341 1 ! EXTERNAL REFERENCES: 

: 248 8 § 1! 

3 49 1 

> 250 8 4 1 external literal 

ae +) 5 1 cli$_bufovf, 

; 2g 0 § 1 cli$_noclint; 

; & 0 1 

: 2546 0348 1 

s @> 0349 1 external routine 

; 256 0350 1 LbrSoutput_help, 

3 aor 0351 1 Lib$get_foreign, 

; 258 O36 1 LibSget_input, 

; 259 0353 1 Lib$put_output. 

; 260 0354 1 fmg$match_name : fmg_match, 

3 $e 0355 1 cli$dcl_parse, 

3 o¢ B28 1 cli$dispatch, 

; tH 1 cli$present, 

> 266 0358 1 cli$get_value, - re ‘ 

; 265 0359 1 update_record, : modify all specified fields  —s_ 
: 266 0360 1 parse_u ld, : porpes a wildcarded user specification 
3 sor 0361 1 giShpwd ! Nash password routine 

: 268 tee: 1 uaf$add_ident_recbuf, 

: 269 0363 1 uaf$build_holder, 

: 270 0364 1 uaf$find_uic , 

: 271 0365 1 uaf$remove_ident_recbuf, 

3 $i¢ 0 1 uaf$write_rights; 

; 27 Be 1 

: $i 568 1 external 

: 275 8395 1 EXESGL_SYSUIC =: long, 

; % 0370 1 rdb_header flag : byte , 

: 2? 0371 1 rdb_list_ffag  : byte, 

; 278 0 % 1 attributes : jong ° 

; 279 0375 1 older : $bb ock(8? ° 

: 0374 1 ident — : Sbblock (4) , 

3 0375 1 authorize_commands, ! AUTHORIZE command parse tables 
3 8378 : prvSab_names; ! address of privilege name table 
; 78 1 

3 9 8 , ! 

3 8 O 1 ! MACROS: 

: . e's 

: § ' macre 

: *| 1 namelen (x, y) = 

: fd . 3 begin 

; ‘sl 1 builtin 

3 : : paesee 

3 register 

: cl 9 1 r0 = 0; 
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V06~000 523et=19 4 15:84:96 UAF .BUGSRC IUAFMAIN.B32¢1 - (2) 
$ "0390 1 loce (Zref(’ "), Sref(x), y; r0); 
3 3 0391 1 x- wf . 
; 38 3 : endz, 
; 300 m 0394 1 cstringl{) = (uplit byte (%charcount (fstring (Xremaining)), 
: a 95 ! tstring Uiremaining)) 4, . 
3 08 5 3 ! fatalC] = (fmt_sys_msg (Zremaining); accSexit ())%, 
3 82 O73 : ; Macros to check for success or failure from RMS 
; 44 pres 1 rmsbad coue tng? = (not (rmserr = string)) %, 
3 ee Be0s : rmsok (string) = (rmserr = string) %, 
; 310 0404 1 ! Macros to set up and write an FAO string. 
ae S| 0405 1! ; 
3 \¢ ” res} 1 faomac (faomsg)(]) = 
3 31 0407 1 begin 
: 314 ™ 0408 1 faodsc(dsc$w_length] = . (faomsg)<0,8>; 
3 6319 m 0409 1 faodsc at ne igeteiee nd = (faomsg) + 1; ; 
: $18 ™ 0410 1 $fao (faodsc, rabptrCrab$Sw.rszJ, disdsc Scomma (%remaining) 
s Si7 m 0411 1 Zremaining); 
; 318 i] pels 1 $put_ (rab = .rabptr); 
: 4 041 1 end i, 
3 320 0414 1 
3 $5! 0415 1 Scomma([] =, %, 
; $§ psig 1 
3 $5 M0417 1 output_null = 
; 324 m0418 1 begin 
3 Bee M0419 1 rabptrCrab$w_rsz) = 0; 
; 326 0420 1 put (rab = .rabptr); 
3 Ser 0421 1 end %, 
: 359 0438 1 | 
; $5 0454 1 ! Macro to create string descriptor for command parameters and 
3.6 (CSS) 0425 1! qualifiers 
3 $§ Bess 1! 
; M0427 1 sd{a) = . 
; $¢ 0439 ! bind Zname ('SD_',a) = $descriptor (a)%; 
H 3% P 0430 1 sd ( 
s Sor P 0431 1 *tokenl', *token2', ‘brief’, ‘full’, 
5 $ P rh) 1 ‘add_identifier', ‘remove_identifier', 
3 9 P 04 1 ‘modi fy_identifier’ 
3; 340 434 1); 
3; 341 0435 1 
F rk 04 1 field 
; o? 43 1 Gencr  flolds = ! Define the fields for a DESCRIPTOR 
; se 
3; «345 139 1 length = (dsc$w_length), 
; 34 440 1 dtype = ([dsc$b_dtype], 
3; 34 441 1 class = [dsc$b_class], 
: 348 re 1 pointer = [dsc$a_pointer] 
: 349 445 1 tes; 
; 30 444 1 
; 5 ! m 


acro 
statdesc = 
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$bblock Cdsc$k_s 


macro 
quelstr_desc (string) 


n 
sd_attribresource 


EQUATED SYMBOLS: 


literal 

cmdbufmax 
false 

true 
update_records 
rooeva “records 
copy_f ep 
rename_f a9 
byte_léngt 
word length 
long_ or) he 
retry_rl 
sleep rlk 


tf 
zero 
cmdbuf len 


~O-—n0W— 


global fbnetne F 
encry 
disbueten 


bind 

sysaf string 
netuat tring 
mod_act_o-c 
add_act_dst 


dbl=colin 


: Define the svscem delta 
wakedelta = 
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7 AX-11 Oi reen ag V4.0-742 
0 UAF .BUGSRC JUAFMAIN.B32; 1 


Length 
dtype dsc$k _dtype_t, 
class dsc$k_class_s, 
pointer] = 0)%; ~ 


$bbTock Casesk Ss btn} fiel (descr_fields) 
preset ( 


Length) = tictorcounc(string)?, 

type = qoets ~dtype. t. 

class = dsc$k 
pointer] = (uplit. byte” Chstring(string))))%; 


: qualstr_desc (‘attributes.resource') ; 


Oo 
co 
. 


maximum command Length 

logical false 

logical true 

flag for proxy file adjustment 


used in routine copy_uaf 

used in routine rename_uaf 

bits per byte 

bits per word 

bits per longword 

number of retries for a locked record 
ms to sleep before retrying 


oO ~O- OW 


Ore se ee ee 


OWS: tw 
se © 
=. 


a 
™m 
= 

2 


' size of user command buffer 


uaf$c_purdy_ Ve ! encryption algorithm to use 
132; ! size of display file output buffer 


uptit byte ( BE yi d 
uplit oyee f 
$Sdescriptor f Nnogt tied" +, 

$descriptor ( eeeee 

$descriptor (‘remove 

$descriptor (' Pipetit tks 'AS 'AS record !AS on !%D"), 
$descriptor (' 


time to sleep before retrying to GET a locked record. 
uplit long (-10*1000*sleep_rik,-1), 


i Default values for authorization file record. These values are 
i only used when a new authorization file is created. f the file 
i already exists, the default values are read from the first file 
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etztobe 15:61:30 fo ¢ 


v04-000 “0c t-1984 1 1 AF .BUGSRC JUAFMAIN.B32;1 
: 410 820% 1 ! record. 

> 41) 0505 1! 

$ tig B208 1 defuser = estring (‘DEFAULT’), |! default username 

; 41 0507 1 defpass = cstring ('USER'), ! default password 

> 414 0508 1 defclirzabl = cstring ("DCLTABLES'), ! default CLI tables 

> 415 0509 1 efact = cstring (''), ! default account name 

: 416 0510 1 defcli = ¢string (‘DCL"), ! default command interpreter 

; 417 0511 1 defowner = cstring ('"), ! owner's name 

; 418 b218 1 defigicmd = cstring ('"), ' default login command file 

; 419 0513 «1 defgrp = $0, $00 P ! default group 

> 420 0514 #1 defmem = %0'200', ! default member 

; $s) 0515 1 defair = cstring (‘CUSER]"), ! default directory name 

; 4 ¢ 0516 1 defdev = cstring ('"), ! default device name 

; 42 0517 1 defbiolm = 6 ! default buffered 1/0 Limit 

> 426 0518 1 defbyt im = 4696, i default buffered 1/0 buffer space 
; 425 0519 1 defdiolm = 6 ! default direct 1/0 Limit 

> 426 0520 1 detfillm 2 26, i default open file Limit 

: 42? 0521 1 defflags > ! default flag bits ; 

: 428 05 ¢ 1 deftqcnt = 16, ! default time queue entries 

: 429 05 1 defprccnt = 2, ! default subprocess count 

: 430 0524 1 defori = 4, ! default process priority 

> 431 0525 1 defquepri = 4 ! default queue grrer te 

; 43 0526 1 defwsquota = 260, ! default working set Limit ; 

; 43 0527 1 defdfwscnt = 150, ' “default’’ working set default size 
; 434 0528 1 defwsextent = 500, ! default working set extent 

: 435 B2¢2 1 defcputim = 0 ! default CPU time quota 

: 636 0530 1 defastim = 16 i default AST queue Limit 

: 637 0531 1 defpgfiquota = 10600, ! default paging file Limit in pages 
; 438 0338 1 defenqim = 10, ! default enqueue Limit ? 

; 439 05 1 defpbytlm = Q, : defauit paged buffer 1/0 Limit 

: 440 0534 «1 defshrfilim = 0, ! default shared file Limit 

7 441 0535 (1 defmaxjobs = 0, ! default maximum concurrent jobs 

; 44 0536 «(1 defmaxacctjods = 0, ! default maximum concurrent group jobs 
: 44 0537 1 de fmaxdetach = 0 ! default maximum detached processes 
3; 444 0538 1 def jtquota = 1624, : default job-wide logical table quota 
3 445 0539 2 defprimedays = ( : : Sat, Sun are default non-prime days 
; 446 0540 § (1 * $bitposition sustze.sesureey)) or 

3 ret Bees : 7 * $bitposition (uaf$v_sunday) 

: 4469 b3c§ 1 defhours = 0, ' default all hours to allow access 
3 rt beee 1 defpriv = wel tt ( ! default privilege vector 

; 45 0546 (1 * $bitposition (prvSv_netmbx)) or 

; 45 Been (1 * $bitposition (prv$v_tmpmbx)) 

; 456 548 1 ), 0), 

; 455 0549 1 defpwdlength = 6, ! default min password length 

; 456 0550 1 defpwdlife = uplit (0,0), ! default password Litetime 

3; «6457 0551 1 

; 458 $236 1! 

; 459 555 1! The following are the defauit values for the SYSTEM user. When 

; +69 8228 : anew file is created, a system manager record is created. 

; 46 0356 1 sysuser = cstring ('SYSTEM') 

> 46 557 1 syspass = cstring (*MANAGER'S , 

; 464 558 1 sysclitabl = cstring ("DCLTABLES"), 

; 6465 559 1 sysact = cstring (*SYSTEM'), 

; 466 560 1 syscli = cstring ("DLL"), 
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sysowner 
sysigicmd 


systacnt 
sysprccnt 
syspri 
sysquepri 
SySwsquota 
syswsextent 
sysdfwscnt 
syscoutim 
Sysastim 


syspgflqucta 


sysenqim 
syspbytlm 
sysshrfillm 
sSysmaxjobs 


Sysmaxdetach 


Sysjtquota 


Sysmaxacctjobs 


sysprimedays 


syshours 
syspriv 
syspwdlength 
syspwdlife 


: GLOBAL STORAGE - must 


disbuf 
disdsc 


; OWN STORAGE: 


username_buf 
pcb_sts 


pid, 
username_dsc 
recname_dsc 
file_dsc 

mod default, 
modif 


f : 
netunl madi tied, 


own nm O OOO ON S990 SW FE ON 
[_—— = Oe es COO VOVF + 
oa 
o 
oO 
>. 


: vector 
: vector 
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cstring ("SYSTEM MANAGER"), 
string ("'), 

o"s 
Zo'4', 
cstring ('CSYSMGRI"), 
cstring ('"), 


i480, 


oNo 
me 
i 


™m 
~ 
= 


oc 


itposition (ue fev seturdey)) or 
itposition (uaf$v_sunday) 


>> 
POA 


uplit (rep 2 of (Xx'FFFFFFFF")), 
° ! default min password length 
uplit (0,0); ! default password Lifetime 


be before OWN for initialization purposes 


: vector [étsbufien. bytel, ' display buffer 
$ block C . 


byte] initial (disbuflen, disbu*) ; 


: block Cuaf$s_username, byte], 
: bitvector C329: anes 


: vector 3} initial (0, username_buf), 


“initial (6) 


long, i SYSUAF modifi 
! NETUAF modified 


<c 


! Sat, Sun are default non-prime days 


DEFAULT record being modified by MODIFY command 
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rename_ph2 
olduserlen 


oldusername 


: byte initial (false), 


: ong. 
: vector Cuaf$s_username,byte], 


newuserlen $ ong. 
newusername : vector (Cuaf$s_username, byte], 
cmdbuf : vector Ccemdbuffen, bytel, ! command buffer 
default_size word 
default=record : block pyetse Lanett. bytel, ! default record held here 
pwddsc : block (8, byfel, ! password descriptor 
insize : Long, ! number of input chars 
brief_flag long, ! display option 
full flog : long, ' display option 
header_flag : long, ! output header or not? 
infab : $fab ( ! FAB for terminal 1/0 

fac = (get, put), 

rat =cr, 

~ = "SYSSINPUT’ 
inrab $rab ( ! RAB for terminal 1/0 

rac = seq, 

rop = pat, 

ie = infab 
out fab $fab ( 

fac = (put), 

rat =cr, 

yo = *SYSSOUTPUT' 
lstnam : $nam (), ! needed for the DLT option 
istpro $xabpro ( 

ere = (rwd,rwd,rw) 
istfab $fab ( ! FAB for UAF Listing file 

fac = put, 

rat = cr, 

frm = ‘SYSUAF.LIS', 

shr = nil, 

org = seq, 

rfm = var 

ars = disbuflen, 

nam = |stnan, 

oo = lstpro 
istrab $rab ( ! RAB for UAF Listing file 

rac = seq 

rbf = disbuf, 

reo = lstfab 
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nlstnam : $nam (), 


nlstpro : $xabpro ( 
ro = (rwd,rwd,rw) 


P 068 nistfab : $fab ( ! FAB for NETUAF Listing file 
P 068 fac = put, 
P 068 rat = ¢r 
P 068 frm = "NETUAF.LIS', 
Pp one shr = il, 
P 0686 org = seq, 
P 068 rfm = var 
5 13 ars = disbuflen, 
P 068 nam = nlstnam, 
P 0690 xab = nlstpro 
399) ), 
P $698 nistrab : $rab ( ! RAB for NETUAF Listing file 
P 0694 rac = seq, 
bose ian: RSet 
ab = nistfa 
3 
P 0699 uafkey2 : suathey ' XAB for User number key 
P 0700 ref = 2, i alternate key 
, 4 oeez = Sbyteottset (uafSw_mem), 
z 
P 08 dtp = bnd, 
P flg = (chg, dup) 


), 
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pro = (rwed, rwed), ! deny world access 
nxt = uafkey0d 


vaffab : S$fab ( ! FAB for work file 


Ot Sol an: oh ee 
ac = e., ui 
from = 8ky apie’ ° 
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P 070 uafkey1 : soathey < ! ¥AB for Group number key 
P 0708 ref = alternate key 
“ % oS = Séyteottset (uaf$l_uic), 
P 0711 ate © | : ond, 
P \¢ flg = rs dup), 
P 071 nxt = uaf ey2 
13 
P 1 uafkeyO : men o> ( ' XAB for oe key 
P 071 ref + i primar 
Pp 18 pos by teoffset gh _usernane), 
P O71 siz uals qusernene, 
v nxt = ye 
§ uafpro : $xabpro ( : XAB for file protection 
é 
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y0e000 ety 15384390 (Oar BuGsRe UAF MAIN BSoe1 — 3 
; 6 P 07 1 dnm = '.DAT', 
; 6 , P 07 i 1 shr = rget. put, del, upd), 
: Bet P Ors Fol o vent 
3 rfm = var 
b4¢ P , 6 ars =u t$c_length, 
: 644 p Ose deq = 8. 
: ot? P rR } eee a uafpro 
: 828 0741 1! ‘ 
: ot8 rg : FAB for NETUAF Proxy Login File 
; re P rte i fkey! $xabk ( 
3 nafkey! : $xabke 
: $58 p Ore 1 , Kref = 1, 
; 65 P0747 1 posO = Soyseoftset (naf$t_localuser), 
: 654 P 0748 1 siz0 = naf$s_localuser, 
: $23 e ore : flg = (chg,dup) 
PS Gee EE Es cena + eanepd 
; natke H 
: 639 pores | ae 
: 660 P0754 1 pos0 = soxzeot feet (naf$t_remname), 
; 661 P0755 1 sizQ = naf$s_remname, 
: ba Pp £38 ! nxt = nafkeyT 
a: p or85 | aon ci nerd § 
3 nafpro : $xabpro 
; 666 P 3700 1 pro = (rwed, rwed), 
: rot P 48 : nxt = nafkeyO 
2 oe Rea ersig 5 
3 a : ! 
BAYS ie anteater | ised 
° a = * . . ’ 
we Rae a aaa 
3 nm = ‘DAT’, 
: of? . 0769 : shr = tget. put, del, upd), 
4 = 
: 858 P0771 1 rie © fin, 
: or 4 ae ’ rs = natéc_length, 
_ = om 
; 680 P 0774 1 des =] 
: ob P ae ! xab = nafpro 
; ae . 
3 ore 1! 
: 5 f ; : GLOBAL STORAGE: 
a i Meet block (8, byt t gen’ l f ing d 
3 ! aodsc : bloc el, ! gen rpose fao st 
; 689 7 § j oe be : ref block S3<_ bin, byte]. PR for output — 
: 690 7 1 uaf q.$ suaff : block 532-s_sysuaff, byte], ! SYSUAF audit net pees 
; 691 785 1 uaf$gi_ctimsk : block : Control mask for AUTHORIZE 
; 69 786 1 by_account : Long initial (false), | processing y account 
: 69 787 1 match_token : vector Cnaf$s_remname+2, byte], ! Saved match token 
; 694 7 1 match_tokenlen : long, 
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UAFRAB is global to allow UPDATE_RECORD to modify RABSW_RSZ. 
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wild_netuser, ! wildcard access to proxy entrigs 
call count long wis tes (0), : counter for veqrece 4 ng cmd Line 
tokendsc : block byte proses ( [dsc$b_classJ=dsc$k_class_d), 
cmdlindsc : block [DSc$k_9 BLN, byte] 

preset(CDSC$B-CCASS = DSCSK CLASS D), 
netuaf_exists, ! A self-explanatory flag... 
rdb_exists : long, 


' save rms error codes here 
! RIGHTSLIST modified flag 


Records are generally read into RECBUF, 


rmserr : Long 
rightslist_modified : byte, 


Record buffer for file 1/0. 
modified, and output. 


: block 
: block 


recbuf 


uaf$c_length, byte 
netbuf 


naf$c_length, priede 


uafrab : $rab o RAS for work file 
r 


recbuf Cuaf$t_username), 
uaf$s_username, 

uaf$c_ length, 

uaf fab 


er 

w 

N 
nunnn 


nafrab : $rab J ‘ 

rf = 0, 

kbf = netbuf Cnaf$t_remname), 

ksz = naf$s_remname, 

usz = naf$c_length, 

rsz = naf$c_length, 

rac = aoe 

fab = na fab 
time_buf : block (8,bytel, ! current system time 
pwd_Tlag : long, ! Password defaul’ flag 
outrab : $rab ( 

rac = se 

rbf = disbut, 

sae = outfab 


Flag signaling to WILD_USER that a match was found. 
is set by the action routine called by WILD_USER. 


found_match, 


This flag 


' found at least one wildcard match 


: Wildcard parsing flags set by PARSE_WILD for use in WILD_USER. 
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—+ 


vic fla Lony, 
orecuita : one, 
wild ong, 
str_wild Long; 
global bind 
tokenlen 


= 
tokenptr = 

rec_user_dsc = uplit (ua 
rec encrypt dsc = 
r s 


symBol_s cstring (‘AB 


Prompt strings 


bind 
accprmpt = cstring (Zchar (Lf),"UAF> '), 
accprmpt2 = cstring (Zchar (Lf),'_ ') 
newmsg20 = cstring ("D 


External messages 


external routine 


LIBSSIGNAL; 

external literal 
UAF$_ADDERR, UAF$_ADDMSG, 
UAF$~BADSPC, UAF $~BADUSR, 
UAF$~CMDTOOLONG, UAF $~CONERR, 
UAF$~CREERR UAF$~DEFERR, 
UAF $_DONEMSG, UAF$~GETERR. 
UAF $~INVCMD UAF$~INVRSP, 
UAF $_KEYNOTFND, UAF $“KEYNOTUNG, 
UAFS$-LSTMSG1, UAF$-LSTMSG 
UAF $_MDF YMSG, UAF $ NAF ADDERR, 
UAF$ "NAF AEX, UAF $~NAF CONERR 
UAE S_NAF DNE UAF $“NAEDONERSG, 
UAF $NAFUAEERR, UAF $NAME TOOBIG, 
UAF S“NAOF IL UAF $NAONAF 
UAF $-NODEF PUD, UAF $~NODT0061G 
UAF $-NOTUNQ, UAF $NOUSERNARE , 
UAF$~PUTERR, UAF $-RDBDONEMSG, 
UAFS-RDBMDFYERRU, — UAFS$~ROBHDFYMSG, 
UAF$~REMDEF , UAF$-REMERR, 
UAFS-REMSYS, UAF $-RENDEF 
UAF $"RENSYS UAF$~RONLY 
UAFS~SYSMSGI, UAF$~SYSMSG2, 
UAF$~UICERR, UAF$"ZISQUAL, 
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_username 


Lit (uaf$s_pwd, rec 
4 coeré 


tokendsc (dsc$w_length]_: word, 
gscSa_pointerd. 


recbuf Cuaf$t_us 


buf tua t$q_ pwd 
F GHIIKLMNOPORS TUVUXYZ042 
valid username characte 


© you want’to create a new file? '); 


UAF $_BADNODFORM, 
UAF$—CLIWARNMSG, 
UAF$~COPMSG, 
UAF$_DEF PwD 

UAF $_HELPERR, 
UAF$_ INVUSERNAME , 
UAFS-LSTERR 
UAF$_MDF YERR 


F$"NAF CREERR, 


UAF $~ SHOW 
UAF =UAEERR 
UAF$~2ZPRACREN; 


AX-11 Bliss-32 V4.0-742 


UAF .BUGSRC JUAF MA 


ername)), 


34567898_"); 
rs 


IN.832;1 


<c 


5 
UAFMAIN -Jan-1985 17:24:07 AX-11 Bliss-32 
Y06~000 start = controlling code $-Jan-1985 15:84:96 UAF .BUGSRCIUAF 
: 08 § 1 &sbttl ‘start - controlling code’ 
3 ; 1 fous ine start = 
: n 
8 = 
: Bi 307 | 
3 13 ; FUNCTIONAL DESCRIPTION: 
: 1 910 ! Main procedure of AUTHORIZE. Call SETUP to initialize 
; 81 0911 ! all needed files. Prompt the user for the functions which 
3 s18 31§ } he/she wants, and call the proper function service routine. 
3 H 0 14 ! INPUTS: 
: 821 15 i 
 & ¢ pais ' none 
; 8 91 ! 
; 824 Hs ' IMPLICIT INPUTS: 
; 825 91 ' 
; 826 0 ! none 
: 827 0921 ! 
: 828 09 ¢ ! OUTPUTS: 
; 829 09 ! 
. § 0924 ! None 
3 oa 0925 ! 
: é 09 $ ' IMPLICIT OUTPUTS: 
3; &@ 09 ! 
3; 8 09 $ ! none 
; 835 09 ! 
3 : 0930 ! ROUTINE VALUE: 
: 7 Bae) ! 
: 838 09 § ! none 
; 839 093 ‘ 
3 0 0934 ! SIDE EFFECTS: 
3 ee) Baez 
3 ! none 
3 ¢ $339 tao 
3 4 0938 
ape 8 hee 
; status; 
§ Bc! b9c4 
3 54-6 +44 rightslist_modified = false; 
; $22 094 netuaf_modified = false; = 
3 3 toge modify_flag = false; ! note no modifications 
3 25 4 ! 
3 59 ' Set up terminal 1/0 
3 948 ! 
: 1 949 
3 § 50 if rmsbad (status = Sopen (fab = infab)) 
3 51 then 
5 : 26 signal_stop (.status); 
: 54 3 if rmsbad (status = $connect (rab = inrab)) 
3 7 55 hen 
; 3 328 signal_stop (.status); 
: 0 58 2 Screate (fab = outfab): 


+ HN (0, uef$s flags, uaf$gi_ctimsk); 
clisdispatch Q; 


S333 


tse 
if .status eq! cli$_noclint 
hen 


signal_stop (cli$_noclint) 
end; 


UAF MAIN -Jan-1985 17:26: AX-11 Bliss-32 V4.0-742 Pa 7 
y0e-000 start = controlling code b-Jan-1965 153 63 % UAF .BUGSRC JUAFMAIN.832;1 a ay 
; 871 59 Sconnest (rab = outrab); 

: i 36 tup © 

; setu 3 

; 874 306 “ 

; 875 96 : 

: 7 964 i Files have been initialized, Prompt user for command Line 

: f 5 and perform requested function. 

: B95 367 

3001 *eNEWee 096 if LibSget_foreign (cmdlindsc) and .cmdlindsc CDSC$W_LENGTH] neq 0 
3008 teNEWee a9 then 

: eeNEWee ’ ' 

; teNEWee 7 ! If defined foreign, and there are commands on the Line... 

3005 *eNEWee 97 ! 

2008 teNEWee 7 begin 

3007 *eNnEWee 74 

3008 *eNEWer 975 4 if (status = cli$dcl_parse (cmdlindsc, authorize_commands, 0, LIBSGET_INPUT, Z%ascid"UAF> ')) 
; 889-9 p38 3 then 

; 890 77 4 begin 

; 891 978 & cli$dispatch (); 

; 89 79 4 return true; 

; 89 0980 4 end 

; 8946 0981 else 

; 895 04-04 ! 

: a98 peer See if no CLINT exists (Kludge City, USA 37916) 

: 898 44H it, -stetus eql cli$_noclint 

; 899 38 

: 900 098 "signal. stop (cli$_noclint) 

; 901 344 else 

3 306 89 accS$exit () 

:; 90 0990 end; 

; 904 1 

; 905 § while true 

: 309 099% $ °° begi 

: n 

: 908 0995 ° 

: 909 4: ! 

; 910 099 i Input the command Line Sob ing care of continuations. Pull off 
; 911 ! the first token, assuming it is the command name, and look it up 
3 a i in the table of commands. 

; (91 000 i 

: 9146 001 

s WS § if get_cmd_line () 

;. 916 then : 

3007 eNEWee 344 ; ih (status = cli$dcl_parse (cmdlindsc, authorize commands, 0, LIBSGET_INPUT, Zascid"UAF> ")) 
3 - en 

3 4 

3 4 

3 4 

: | 
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return true; 
end; 


64 


64 


65 


6€ 


69 


69 


Pe 


65 


5F 


75 


65 


64 


31 


32 


64 


65 


79 


46 
69 


65 


6E 


6E 


66 


69 


76 


76 


85 72 $0 


5 
B-san-19 
“Oct-19 


AX-11 Bliss-32 V4.0-742 
UAF .BUGSRC JUAFMAIN.B32; 1 


arms 
on 


ac 15:61: 


“TITLE thee 
-IDENT \Vv04-000\ 


-PSECT SPLI°S,NOWRT .NOEXE,2 


eASCII \tokentl\ 
-BLKB 


ot 

ADDRESS P.AAB 

-ASCI \token2\ 
LKB 


- LONG 
-ADDRESS P.AAD 
ty \brief\ 


LONG 
“ADDRES S P.AAF 
“ASCII \full\ 
LONG .. 
ADDRESS P 
ASCII \edd Ndentitier\ 
-BLKB 2 


“ADDRESS P.AAJ 
ASCII \remove_ identifier\ 


el 
-ADDRESS P.AAL 
ASCII \modify_identifier\ 


-BLKe = 3 
ys 


ot 
ADDRESS P.AAN 
ASCII \attributes.resource\ 


eASCIIT = \SYSUAF\ 
eASCIIT = \NETUAF\ 
«ASCII = \modified\ 
-BLKB 


el 
«ADDRESS P.AAS 
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0 5 P.AAK: Bie 7 
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FFFFFFFF PS P.ABB: .LONG -5600000, 1 


P.ABC: .BYTE 
54 46C 55 41 46 45 66 “ASCII \DEFAULT\ 
4 P.ABD: .BYTE 4 
52 465 53 55 “ASCII \USER\ 
09 D P.ABE: .BYTE 9 
53 45 4C 42 41 54 4C 43 66 “ASCII \DCLTABLES\ 
00 P.ABF: .BYTE 0 
‘BLKB (OO 
03 P.ABG: .BYTE 3 
4C 463 44 “ASCII \DCL\ 
00 P.ABH: .BYTE 0 
BLKB 0 
00 P.ABL: <BYTE 0 
“BLKB OO 
06 O13— P.ABJ: {BYTE 6 
SD 52 45 53 5S 5B 0013F ASCII \CUSERI\ 
00 00145 P.aBk: ‘BYTE 0 
0146 “BLKB OO 
0146 “BLKB 2 
00000000 00108000 00148 P.ABL: ‘LONG 1081344, 0 
00000000 00000000 130 P.ABM: .LONG 0, 0 
1 P.ABN: .BYTE 6 
4D 45 54 53 59 139 [ASCII \SYSTEM\ 
0 15f P.aBO: ‘BYTE 7 
52 65 47 41 4E 41 4D 160 ASCII \MANAGER\ 
09 00167 P.aBP: ‘BYTE 9 
53 45 4C 42 41 S6 6C 63 44 168 “ASCII \DCLTABLES\ 
171 P.aBQ: ‘BYTE 6 
4D 45 54 53 59 1% ASCII \SYSTEM\ 
0 178 P.ABR: ‘BYTE 3 
4C 43 4&4 00179 ZASCIZ \DCL\ 
Q 17C P.ABS: cBYTE 14 
52 45 47 41 GE 41 4D 20 4D 45 54 53 59 00170 “ASCII \SYSTEM MANAGER\ 
00188 P.ABT: .BYTE 0 
001 C -BLKB 
98 001 C P. ABU: BYTE 
5D 52 47 4D 53 59 53 38 001 ASCII \CSYSMGRI\ 
001 P. ABV -BYTE 
001 -BLKB 
001 “BLKB 
FFFFFFFF® 00198 P.ABW: .LONG 12) 
00000000 0 DOTA P:ABX: LONG 0 
$6 49 26 5 DOIAS P.ABY: ASCII \SYSSINPUT\ 
50 54 «55 (4F 6 9 00181 P.ABZ: .ASCil \SYSS$OUTPUT\ 
4c 26 466 41 55 53 59 DO1BB P.ACA: <ASCII \SYSUAF.LIS\ 
46 41 «55 24 45 4§ O1C5 PLACB: CASCII \NETUAF-LIS\ 
46 41 55 53 59 3 DICF P.ACC: <:ASCII \SYSUAF< 
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69 66 20 77 65 6E 20 61 0 65 74 61 5 ¢ 63 00 
0 SF 65 6C 0024 
0249 -BLKB : 
00 00 00 20 3E 46 41 55 0024C P.ACN: .ASCII 17684735 \<0><0><0> 
He 0254 P.ACM: .LONG 
se aa 2 0258 met SS P.ACN 
00 00 00 20 3€ 46 41 55 0025C P.ACP: .ASCI \WAF> \< \<0><0><0> 
010E0005 00264 P.ACO: TONG. 
00000000° 00268 eADDRESS P. Rep” 
-PSECT SOWNS,NOEXE,2 
0013 00000 SD Aeon 19 
01 OF 00008 -BYTE 14, 1 
00000000' BRD Re “ADDRESS P.AAO 
0008 USERNAME _BUF : 
7BL KB 32 
O08 PID PCB_ STS: -BLKB ? 
00000000 00030 USERNAME “De: 0 
00000000' ADDRESS USERNAME _BUF 


0038 RECNAME_DSC: 
«BL 


00000006 00040 FILE_DSC: 
LONG 


80088 MOD DEFAULT: 

0004¢ MODIFY. FLAGS: 

00050 NETUAF_MODIF IED: 
00 00054 RENAME _PHos 


-* wo fF|§ fF F&F FO @ 


0055 “BLKB 
teed OLDUSERLEN: 
0005C OLDUSERNAME : 


Be Se Be Ge Ge Ge Ge Se Se Ge Ge Fe Se Se Se Se 


UAF MAIN 
v04-000 


start = controlling code 


COOWOOCOCCCOOWwW 


ooo 


000006 
00 


OoOoOooooooooooo°ooo 


COOCCOSSSOGCOCSOCOOwNcooO 


sss 


6 
B-san-t9 5 10:66: 
-0¢t-1984 13:01: 
-8LKB 
0007C NEWUSERLEN: 


-BLK 
00080 NEWUSERNAME : 


-BLK 
QOOAO CMDBUF: ;BLKB 
004A0 DEFAULT_$1ZE: 

.BLKB 


004A2 -BLKB 
004A4 var acne 


OA 
OA 
OOA 


$5 


4 BRIEF _FLAG 
OOA38 FULL_FLAG: 
OOA3C HEADER_FLAG: 


8 PWDDSC: 
INSIZE: 


QOA4O INFAB: 
00A41 


¢ 
: INRAB: 


“BLKB 
*BLKB 


«LONG 
-ADDRESS 
- LONG 


0 
i 


COOONMNMNOOCCOWOCOCOCOCOCOCOOWF £& & FO NMG —wWw | Ww 


oO “OOOO COOCCCOOOO CO 


7 
0 
é 


orm 
~ 
~~ 


= 
_ 
™ 


oO 


P.ABY 


073741824 


UAFRAIN ; 
v04- start = controlling code 


Se De Dee Be ee Be De) 


NERRSAMAwWERUVOAS OB FOOO PUNO 


6 
b-Jan-19 
“Oct-19 


OUTFAB: . 
:B 


LSTNAM: 


Be 15:84:% 


(3) 


an 
ooo 

4=ZZ2Z 
maoc§c 
oooo°ocoonm 


«LONG 
eADDRESS INFAB 
ON 


@ 
< 
“ 
aqaoommnNna 
BiwWa 
Oo 


. 

c 

oO 

z 

a 
SOQOONMMNMOCOOCO—-COCCOO 


<1 ae P.ABZ 


o 


o 


~-ow 

o~< 

2-4 

am 
OoOWVOOCOCOCOCCCOCoOoO- Oo 


~ +i eee 


ioe Bliss-32 V4.0-742 Page (3 


UAF .BUGSRC JUAFMAIN.B32; 1 


Pee Se Se Oe He Oe Oe Oe ee Oe ee Oe ee ee we we 


start - controlling code 


000000 


"MmOoOMmC# 


COooco0coa 

ae 
fatto tata tattatata tate totatatatatatatatatatotatatetatatatas 
BORSA IVIL LO OP NAIR = 


a let ne ne be BAL BAL BAL AA! 


Sess 
DOP UVM FOMO mmo r 


6 


-Jan-19 
“Oct-19 


mf 
LSTPRO: . 


a.) 
LSTFAB: :BYT 
“BY 


5 


i} 


| oe] 
™m 
we 


oon 
™Nm 
uw 


~o 
“ 
Co 


OO | OOW@—-DOOCOOOOSO0O 


oo . 
Oo 


~m 


SOS GSSseeegee Ooooooo°o°oo 


AX-11 Bliss-32 V4.0-742 
UAF .BUGSRC JUAFMAIN.B32; 1 


. 
2 
. 
7 
. 
. 
. 
o 
. 
. 
. 
e 
. 
. 
. 
oO 
. 
. 
. 
a 
7 
o 
. 
. 
- 
- 
. 
. 
. 
. 
. 
’ 
. 
- 
. 
. 
. 
. 
. 
* 
. 
. 
. 
* 
. 
. 
. 
. 
s 
. 
. 
. 
. 
. 
. 
. 
eo 
. 
. 
. 
a 
. 
. 
. 
eo 
. 
. 
. 
a 
. 
. 
. 
. 
. 
. 
. 
o 
. 
o 
. 
© 
- 
. 
. 
. 


6 | 
UAF MAIN -Jan-1985 17: AX-11 Bliss-32 V4.0-742 Page 24 
V06~000 start - controlling code ban 198, 13: ‘6 % UAF .BUGSRC JUAFMAIN.B32;1 ’ 3 
BFA BYTE 2 ; 
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ESA BYTE : : 
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E40 BYTE 3 : 
4E BYTE 8 : ; 
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UAFKEYO: .BYTE 1 3 ; 
5 BYTE 6 : 3 
00 WOR 0 3 ; 
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ut 6C «WORD ; ; 
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v0 «BYTE : 3 
D0 BYTE : ; 


| 


vant 


start - controlling code 


an0n8 


SRESPSSS> ESE PEP VGOSOSIOLOLOOPae 


SDOOOOOS 
RRRAROM 
™ > OCec 


—_ 


oo 


i Di Ri Di Ri De Di De De i De De BB ee te | 


MUVEYVS Smee 
MOn@s ONOUNLOMMA 


oo 


6 
-jan-19 
“Oct-19 


UAF PRO: 


UAFFAB: . 


Be 15:89:90 


AX-11 8 


piece v4.0- 
UAF .BUGSRC JUAF MAI 


‘BYTE 9 


T 9 

-BYTE 8 

«WORD 

- ADDRESS yer neyo 
RD =256 


WORD . 0 


se 
} 
D 
mac oo 
fo) 


oO 


3554432 


~m 


oo . 
@ 
= 
—t 
m 
SONOWOO— ] | “COWOOWSs 
Vince 


«LONG 
eADDRESS UAFPRO 


ol 
sADDRESS P.ACC 
-ADDRESS P.ACD 


-BYTE $ 
-BYTE 
-WORD 1 


412 


Se Be Se Se Se 


Pete Se Se Se Se Se Se Se Be Be Be 


<¢ 


nN 
vu 
: 

<¢ 


kK 6 
04-000 start = controlling code B-dee=198e 15:01:90 Ear BuesmeSuarMAinca ses) 3 


ooo 


i i is i i Ba Be De ee De es De Be Dee te Dee Be Be es Dns Does ns Bon Do 


PPPS SISA SE &* & S- 
WMMOCD SOMES WHOM & OBL UMNVOM 
<< 


eL 
watsdetntne “F 


o— 


00000 


0 
08 
0 
0 


— > 
oa 
< 
“42D 
m 
SOCOM OOOCOOOCOOO NWNOOOOOCOOOOoOOo 


—N 


U 


+ 


. 
e 
7 
. 
. 
o 
. 
o 
. 
° 
7 
a 
. 
7 
. 
oe 
. 
* 
7 
. 
. 
7 
o 
. 
o 
. 
2 
. 
a 
. 
o 
. 
* 
. 
. 
. 
eo 
. 
. 
+ 
- 
~ 
. 
* 
om 
. 
i 
. 
. 
. 
e 
. 
2 
. 
a 
7 
. 
. 
. 
. 
. 
. 
o 
. 
7 
. 
o 
. 
eo 
. 
. 
. 
. 
. 
. 
. 
. 
. 
a 
. 
eo 
. 
* 
* 
. 
. 
. 


>S 


BSoos 


SOoOo0o0 cn 


>- 


ee 


SB enene 
SOOOO 


2s 


++ 


DOCS 


2s 


— 
Se Pe See Se Se Gee Se Bee Se Se Se Se Se Se Se Se Se Se Oe Oe Oe Oe Os Oe Oe oe Bete Se Se Se Se Se Fe Se Se Se Ge Se Se Se Se Se Ge Se Se Ge Se Se Ge Se Ge Se Se 


Saas sa 
. 
@ow 
<<< 
“~—«—- 
mn 
CGOOCOCOCOCOCOCOOCOOCCOOWMOOOOSCOCOA OOO 


2s 
Oo 
. 
owoww 


2s 


> 
. 

ow 
< 
— 
nm 


a 


2¢ 


a ea De] Re Ri Re Re ee De Be Be Be Be Be Be Be Be Bs Bee | 


FRISMSRSSSSLSAES 
2 


UAF MAIN -Jan-1985 17:26:07 AX-11 Bliss-3 0-74 P 1 U/ 
v06~000 start = controlling code be stnatg 153 84: 0 UAF .BUGSRC uaFnAt i esoe1 He a vi 

90 .BYT $ 
88 ‘91 BYTE 3 

f Shi 
15 F94 NAFKEYO: .BYT 1 : 
$6. BOF yo ae Se ; 
0000 * OOF -ADDRESS NAFKEY1 : 
F9C -BY TE 3 
F9D -BYTE F 
F9E -BYTE 3 
DOF OF -BYTE : 
DOF AO eyte : 
DOF Al .BYT 3 
00000 DOF A. - LONG $ 
fF BYTE 3 
FA -BYTE 3 
fe -BYTE : 
FA BYTE é 
FAA BYTE 3 
0 FAB BYTE $ 
000 FAC .WOR 3 
F » WORD é 
0 re "WORD 
0000 FBS - WORD 3 
44 4 WORD $ 
DOF ~ WORD 3 
94 DOF BA WORD é 
O06 DOF BC ~ WORD 3 
8 6 OOF - WORD é 
FC ~ WORD $ 
40 FC BYTE 4 : 
0 OOFC BYTE : 
DOF C4 BYTE : 
DOF CS BYTE 3 
0 4 BYTE ; 
OF C -BYTE ; 
‘ c8 BYTE 3 
OFC “BYTE 
DOF CA - WORD ; 
DF CC ONG 3 


<= ee 


SOOOOoOo oOo oOo WO o 


- 
— 
“NOOO OOCOCOOCOOOCOCOOOOOOaA OOOO 


° 
< 
Mm 
oo 

wo 

er erere 


= 


22s 


Bi 
NAFPRO: 0H E 


2 1) 
-ADDRESS NAFKEYO 


32 V4.0-742 
832;1 


UAFRMAIN. 


LOAF BugSReS 


7 
0 


6 
aabet-tobe 15:61:34 


start = controlling code 


32 


*e*e tea tate te te te te te te te te il i i i i i te te eh eh eh eh dh a a a od a te 


~N 
~ oO 
Ww c= we 
~w a wu 
“o o wn =a aa 
rva9 wn $ ee o 
~ * ~~ oomw aa Oo 
v SosocccoeosotmBomoor Hr oomo-07 08 * os coccccccco+ 
° “” ww 
w ww 
SwwowwoVvVvTvAeanVVIOwwa VV owWWOWWwWwWOTUEG ZwwaVvoww awww 
are are F +443 | a Pit tad ie aZzocarr aia are Zw 
>>O>> ss > > tt >> >> OGO0caa> > ad >>OW 
@Q@o30ao03 0 2140080 3 4 4 4 13D “MOOD << 31< << OD ;Oe@—— Oa @ 
*e © feeee eee e *- 0e-+e @ se . oO ee @ *eeeee . *e @ 
| ” 
> 
- — 
- = 
<« _ 
2 wn 
@O<@OvO- wT OwU SRR Be es ww get pe $Y 
Aa be Oe be be De te Oe te to Sam SS 3 polo lololo! OOoCooccoodo 


as i — 


Sssss ss 


0000 


$$$ ey 


™N 
a 
tk 
Pa 
3 
aa 
A 
~) ae 
= 2 
2 @ 
”" 
— Oe 
Co mmo 
eas. ev 
” 
wy 
-_ Us a 
vv @Ovocoaedu 
w wt == 5 
y” wd P+ 
a ®4~<oo 
o eee 8 o> 
oe ee ory 
oe oe oe of g 
ew wa 
2M We 
ao aw 
mw ae 
ee et Ez 


vant 


start = cortrolling code 


00000000 


00000000 
00# 
02 
004 
02 


ie ia a 


AX-11 Bliss-32 V4.0-742 


B-Jan-19 STR Mehta RiP RET 


-BLKB 8B 
QOOAO UAFSGL_CTLMSK:: 8 
OOOAS BY -ACCOUNT 0 
QOOAC MATCH TOKEN! : P 


“BLK 
B00 MATCH, TORENLEN: 
O00F4 WILD_NETUSER: : 


8 4 
OOOF8 CALL_COUNT:: 0 
OOOFC TOKENDSC:: 
“ gcs3 
OOFF BYTE 
0100 -BLKB 4 
0104 CMDLINDSC:: 
BYTE aia 
00107 BYTE 
0108 -BLKB 4 
010C NETUAF EXISTS: : 
-BLKB 4 
00110 eel 
-BLKB 4 
00114 R -BLKB 4 
00118 AE MODIFIED:: 
-BCkB 1 
00119 -—BLKB 3 
0011C RECBUF::.BLKB 1412 
Sa NETBUF::.8LKB 100 
UAFRAB:: .BYTE 1 
0705 -BYTE 68 
07 » WORD 
4 LONG 
me ~ LONG 
14) -LONG QO 
714 WORD C3) 
O71A WORD 
71 LONG 
7 WORD OQ 
7 BYTE 8 
Bf BYTE 
724 eWORD 1412 
7 $ WORD 6 
7 LONG 
7 Line 8 
7 
d aes RECBUF +4 
739 
73A 
738 ‘BY te 
fa 
74 
744 


“ADDRESS Miho 
LONG 


Pe Pe Se Se Se Se Se Se Se Ge Se Ge Se Se Ge Se Se Se Se Fe Se Se Se Se Se 


=32 V4.0-742 


y Bi ies 
UAF .BUGSRC JUAFMAIN.B32;1 


AX-11 


7 
B-yan-1985 17:24:07 


a 
wv 
° 
v 
oa 
c 
- 
= 
~ 
°o 
fe 
~ 
Cc 
°o 
vu 
4 
rw) 
ee 
a 
~ 
" 


ka 
=) & 
@ - 
me _ wow 
al oo w < 
co uw oo 2~v 2 
7 SASS SOSS5O S08, Soees 3° 
” w 
uw w 
WWOUODUVAOVAEWWOOVVVOUEWwwwWwoOTY 
al 2 2 2 4-4:°2 4-42 4-2 ee ee eee 4 
>->OOOCOCO0SO>>d0O000a>>>>0a0 
@on3 4344133 030033 434 31ft OOOO Iu: 
se feteetee @# #& © &© @ @ se eteeestee © #® © @ @©eew Oe 8 © &©—hc ehUCcOhC MC hC<“i SMC“ SC 
ee “ 
oe pm | 
@ @ 
<= t 
a w 
ke = 
<« Ca 
2 Be 
pe ee Sart ty bh te te Sy ee be be hd we we FE 
TTT TMNNNOOOOOOOPR-P-P-P-P-P-P-COCOD 
bd el Deed De Lee. 


eed ed Ded 
COOooooooooooooooooooooooooo 
ee ee ee ewe ww wala la lolololelololololao) 


ae ° ° 
—TOOOCoOOoOoSo- oss OOOoOCoOOoOSoSooOO 


oooooooo oooooo ooo 
OoOoQoooooo oooooo ooo 
ooo So oooo ooo 
ooo So oooo ooo 
ooo So oooo oco 
ooo o oooo ooo 


ADDRESS OUTFAB 
LONG 0 
MATCH: : 
«BLKB 4 
G:: 


«VOT OU Owe oO 
BDMVVVVvVV4S 
Lk. R R 


70C FOUND 


007E0 UIC_ 


00794 PWD_FLAG:: 
708 


—TOooOoooooooc 
Oovtroooooooo 


UAF MAIN 
v04-0 


start = controlling code 


: 


O07E4 
007E8 
OO7EC 


7 
-Jan-19 


§ 17: 4:07 AX=11 Bliss=32 V4.0-742 
-0ct-1984 13:01:70 UAF .BUGSRC JUAFMAIN.B32; 1 
-BLKB 4 
GRP_WILD:: ‘ 
MEM_WILD:: 
. ‘5 4 
STR_WILD:: 
. 4 
SD_TOKENI= P.AAA 
SD-TOKEN2= P.AAC 
SD-BRIEF= P.AAE 
SD- FULL= P.AAG 


SD-ADD_IDENTIFIER= P.AAI 
SD-REMOVE_IDENTIFIER= 


P.AAK 
oo FOOTE, see OY SERS 
ENCRYPT== ’ 


DISBUFLEN== 132 
SYSUAF_STRING= P. AAP 
NE TUAF- STRING= P.AAQ 
MOD_ACT_DSC= P.AAR 
a00_ACT_DSC= P.AAT 
REM_ACT_DSC= P.AAV 
FAO_LIN-DSC= P.AAX 
BL- COLON= P.AAZ 
WAKEDELTA= P.ABB 
DEFUSER= P.ABC 
DEFPASS= P. ABD 
DEFCLITABL= P. ABE 
FACT= P.ABF 
DEFCLI= P.ABG 
EF OWNER= P. ABH 
HT Ae P.ABI 
DEF GRP 13 
DEF MEM= 128 
DEFDIR= P.ABJ 
DEF DEV= P.ABK 
DEFBIOLM= 6 
DEFBYTLM= 4096 
DEFDIOLM= 6 
DEFFILLM= 60 
DEFFLAGS= 
DEF TQCNT= 10 
DEFPRCCNT= 2 
DEFPRI= 4 
DEFQUEPRI= 4 
DEF WSQUOTA= £90 
DEF DFWSCNT= 1 
DEFWSEXTENT= 500 
DEFC IM= 9 
DEFASTLA 0 
DEFP 13000 
DEFE 1 
DEFP 
DEFS 
DEFRA 
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MAXACCTJOBS= 
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crorrro S2=32e- 
<—s o- 


——- MOO 
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<DzB ve 


$s 
SYSPBYTLM= 


S$C== 


SY $T 
ACCPRMPT= 
ACCPRAPT 2= 
NEWMSG20= 


REC_USER_D 
RECENCRYPT_DSC== 
me R== 
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OFFC 00000 START: 


Of AX-11 Bliss-32 Vv4.0-742 
0 UAF .BUGSRCJUAFMAIN.B32; 1 
L18$6G ET efNeUT LIBSPUT_OUTPUT 
FAG b1s0ct PARSE 
CLI {soi Parc MARE, Chl parE AT 

cL $6 UE, RECORD 


f urloe 
ran [eat shecour 
Nae seule ait, QF SREMOVE_IDENT_RECBUF 


AFSWRITE_R 
XESGL sysuC, ROB WEAceR. FLAG 
ROB ERs sent: TTRIBU 


~BADNOD 
UAF $-B/DSAC. US. -BADUSR 
ae Cul ee SG 


LONG 
* UAE COPMSG 


4 


an wm Rm 


“Het PERS 
ante INVRSP 


sages 


§eests 
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$33 
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i Denton a a Don Bona) ~ 
RARE AAAARAAAM 


SSSSSSSS 


$_NAF AEX 

FS NAF CREERR 
NAFDONEMSG 

Lars AFDONERSE 
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F$_NODTOOBIG 
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soars? 
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Sophia vey 
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SCODES ,NOWRT , 2 
Save R2,R3,R4,.R5,R6.R7,R8,R9,R10,R11 
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00000000v 
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US 
1, LIBSSTOP 
SYSSCREATE 
#1, SYSSCONNECT 
SETUP 


pat geet ft mt tk 


2s=2= 
—- — 
~~" 


#1, LIBSGET_FOREIGN 
CMOLINDSC 

4$ 

P.ACM 

Ril 

(SP) 

AUTHORI ZE_COMMANDS 
#5, CLISDCL_PARSE 
RO, TATUS 

. * CLISDISPATCH 
STATUS, RO 


« ACCSEXIT 
ger. CMD _LINE 
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) 
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79 
985 
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; Routine Size: 265 bytes, 


star® = controlling code 
000000006 00 


59 


68 
50 


Routine Base: 


oo-"0—-0—" 
fo-woon-—--@ 


SCODES + 0000 


o 
-Oct-1 


Be 15:61:%0 


AX-11 Bliss$-32 
UAF .BUGSRC JUAF MA 


CALLS 0. CLISDISPATCH 
CMPL STATUS, R9 
S$ 


L RI 
CALLS oe LIBSSTOP 
MOVL #1, RO 


S$ 
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UAF MAIN -Jan-1985 17:24:07 AX-11 Bliss-32 V4.0-742 e 40 UA 
VO6~000 setup - open initial files eet 15:84:95 (uaF -BUGSRe UAFMAIN.B32;1 ~—. (4) vo 
: 933 1019 1 &sbttl ‘setup - open initial files’ 3 
; 9 1020 1 rour ne setup : novalue = : 
: 5 ; 1 begin : 
: 9 10 : Lee ; 
; 938 18 4 ! PF 
: D424 18 5 FUNCTIONAL DESCRIPTION: : 
: 941 10 5 i This routine does all of the initial file manipulation for the : 
; 94 10 8 ‘ rogram. It determines whether or not a previous SYSUAF.DAT exists. F 
: ot 1% 4 } f not, it creates one (if the user wishes to proceed). : 
: 945 1031 2 | INPUTS: ; 
; Be8 1 § ! 3 
; 94 1 : none F 
: 948 18 : 3 
; 328 1 5 IMPLICIT INPUTS: ; 
: 951 10 ; i none F 
: Ve 1038 : F 
; 95 1039 ! OUTPUTS: Si 
: 954 1040 } 5 | 
3 993 1041 : none ; 
; 956 | : z) 
4 eee ok IMPLICIT OUTPUTS: 2) 
: 959 1045 2 i none 3 
; 960 1046 : 2 
: +d ot ROUTINE VALUE: 2 
; 365 1049 i none ; 
; 964 1050 ! ? 
; 965 192) } SIDE EFFECTS: 2 
; 367 1033 none 3 | 
; 968 1054 len 3 
: 969 1055 3 
; 970 1056 local 3 
: 971 1057 status t Long. : 
3 4 1938 curpriv : vector Fs . 3 
; 97 105 procpriv : vector " ; 
3; 974 1060 item_Llist : block (64, byte) 3 
3; 975 1061 newfile; indicates new file must 3 
3 37 1068 ' be created. : 
HR RES HtemtiSE EB B.18- 8 i acy : 
3 em_lis -9.16,0] = pid; : 
; 980 1066 item_list (4, 3 -0) = pid: . 3 
3 < t 1 item_list : = 0; 3 
: 9B¢ 1 item_list é. 16,0) = 12; ; 
; 98 1069 itemlist [14.0.16.0) = jpi$_usernane; : 
; 984 1070 item list 18. 3 -0) = username_buf; : 
: 985 1071 item_list .0,32,0) = username—dscl0); : 
; 986 107g 2 itemctist £24.0:16.0) = 5: : 
; 9 107 item_list -9.16,0] = jpi$_curpriv; ; 
; 4988 1074 item_list ‘ 3 .0) = gurer v; 3 
; 989 1075 item_list -0,32,0J = 0; : 


-san-1985 17:24:07 he Bliss-32 V4.0-742 
setup - open initial files b-san-199s 13:87:96 F .BUGSRC JUAFMAIN.B32;1 


~n~ 


C23 0000: WA te etre 4 
Soo wen Wr—OOo 


OOODOOOCOCO 


SaUSUR UNLESS SREP ORCS SETS SORTS 
SSSSSFSSESSELS 


SSLESRAVLS 


RIPRPPIPIPINIAINIHE BAAN BEE EE 


OOooocoocooooceocooo 
a a a ee ee ee ed dt 


ee ee ee ee ed ee a a nd ed ed oe nd 


a Re a et td td te ts it 


mr 
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CADPR SPIPIPUNIPIPINUIY —* tt tt tt 


item_list -0.16.0) = 8; 

item_list 9.16.0) = jpi$_procpriv; 

item_list 0.32.0] = procpriv; 

item_list 144,0,32,0) = 0; 

item_list 9.16.0) = 4; 

item_list 9.16.0) = jpi$_sts; 

item_list -9.3¢.0] = pcb_Sts; 

item_Llist -0,32.0) = b: 

item List (60,0,52,0) = 0; 

Sgetjpi (itmist = item_List); ! Obtain pid, username and privs 


username_dsc(0) = namelen (uaf$s_username, username_buf); 


APES LELI SLITS TIT TET TTT ETT rrr rrr Tir TTT Titi titi ii titititititiitiyy 
' 


i Open SYSUAF.DAT 


' 
RRA eReeRERAAHHHAAHERAAAHREHHEHHAEKATAAKAKAHEReeeeRAeeHeeReReeeeee ‘eee 


newfile = false; ! note no new file yet 
if rmsbad (Sopen (fab = uaffab)) 
then 


; sysuaf.dat doesn't exist 


PtaSSIGNAL (UAFS enor it 0, .rmserr); 
. -rmserr eql fms$ _tnf 
en 


begin 

while true 

’ do 

: Ask if a new one is desired 


ask _inguasge0 caeyite- cmdbuf len); 


then mae: b veechile = true; 
f .cmdbu a 

ches lh 

LigRsTGNAL CUAFS sted: 


end 
else 
acc$exit (); 


i The file will be created if it does not already exist. 
: In any case connect the RAB. 


if .newfile 


S$ 
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a ee a ee ed ed ed 
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setup - open initial files fsa bi 15:84:% Te BbReduarmAtivce 
133 then 
5 ; Anew file is requested 
y _fasbed (Screate (fab = uaffab)) 
Quit regardless of error on a $SCREATE: don 
want to give read-only user ability to oe a file 
LIBSSIGNAL(UAFS_CREERR, 0, .rmserr); 
if rmsbad (Sconnect (rab = uafrab)) 


then L118 sie L (UAF$_CON ERR. 0, srenerets 
uafrablrab$b_rac] = Fab$c_key; normal access is by key 


Check to see if there was no old file to use. If so write a default and 
@ system manager record. 


if .newfile 
sa 
ify flag = true; ! must rename when done 
build Tni_recs (); ! build default and system manager records 
uafrablrab$w_rsz) = uaf$c_fixed; 
defaul ’ = uvaf$c_fixed; 
yatrebe rans srbfl nepdetault. record; ! insert default record address 
+ = ve ra 
then | t Passi FS_PUTERR, 0, .rmserr); ! report error 
uafrabCrab$l aa = Nebo ' establish proper address (and 
i address of system record) 
if rmsbad (S$put (rab = uafrab) ' output system record 


een LIBSSIGNAL (UAFS_PUTERR, “s .rmserr); 
en 


i Read in the default record. 
uel rabcrabs _ubf] = default_record; 
if no Locate user ( sree 8&>, ob ye false) 
then (18 SIGNAL (UAFS$ raserr 


efault_size = pow rabSw_ rsz 
end; 


uafrab{rab$l_ubf] = recbuf; ! establish proper addresses 
uafrablrab$i"rbf) = recbuf: 


leeeeeeererererereeeeeeeeteeteeeeeeeteeteeeeeeeeneeeeeeeneeeeeeRenerener 
' 


i Open NETUAF DAT 


' 
‘eeererererecereeerreereeeeeeereeeeterereereeeetereneeeeneeenenes aeteeeeee 
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> ot 
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Oe ee ee ee ed ed ed a ed 
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=Jan-1985 17:24:07 AX-11 Bliss-32 V4.0-742 > 43 UA 
setup - open initial files 5-3er=| g 15:64:95 UAF .BUGSRCI AF MAIN.B32;1 = (4) vO 
131 netuaf_exists = true; ! Assume NETUAF.DAT exists... 
1 : 
138 } Try to open NETUAF.DAT and see what happens... 
195 if rmsbad (Sopen (fab = naffab)) 
138 then 
19 , 
138 Couldn't open it 
"if crmserr eql rms$_fnf 
1 then 
§ tet Pato = false ! it doesn’t exist 
Be LIBSSIGNAL(UAFS_NAONAF, 0, .rmserr) ! open error for some other reason 


ec ee i el ae ee ee ed ee ee ed ee 


else : 

; NETUAF .DAT opened without error : 

10 if rmsbed (Sconnect (rab = nafrab)) : 
i ' then LIBSSIGNAL (UAF $_NAF CONERR) ! connect error : 
1§ ; Everything opened and connected, establish proper NETUAF addresses : 
15 "else ; 
16 peeve 3 
1 natrab prenst wt] = netbuf; ; 
18 nafrab Crab$l_rbf] = netbuf: 3 
19 end; 3 
af 7 

§ i Check to see if the rights data base exists. Try to transiate an ID : 

Z : and if we get a file not found error then it doesn't exist. : 

5 ident(uic$v_format) = uicSk_uic_format ; ; 

$ identluic$v_group) = 1 ; 3 

identluicSy_member] = 4 ; : 

8 status = $idtoasc ( id = .ident ) ; r 

o if .status eql rms$_fnf : 

0 then rdb_exists = false : 

1 else rdb_exists = true ; : 

g 1 end; ; 

-EXTRN SYSSGETJPI, SYSS$PUT : 

-EXTRN SYSSIDTOASC ; 

SETUP: .WORD Seve eRe R4,RS,R6,R7,RB.RI,RI0O,R11 : 1020 : 

MOVAB SYS$PUT. ail ; : 

A MOVAB SYSSCONNECT, R10 3 é 

9 19 MOVAB ACCSEXIT, RO ; : 

§ 1 MOVAB SYS Att Re 3 3 

3 MOVAB WEWMSG2), R 3 $ 

6 2 MOVAB IDENT, R6 ; : 
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+f ope Bliss-32 V4.0-742 
710 UAF .BUGSRC JUAFMAIN.B32; 1 


7 

9 

PID, ITEM_LIST+4 

TGA : 35 

033685516, ITEM List el2 

USERNAME Gut. ITER_LIST 16 

RS 10b8)2 Ifem_.is +34 
PRIV R mM_LIST+28 


seater ITEM_LIST+36 
Wren vitt JIER_CIST +40 


s5a5b432, 
#50659332, ITEM_LIST+48 
PCB_STS, ITEM_LIST#+52 
ITEA_LIST+56 
=(SPY 
-($P) 

ITEM_LIST 
=(SPY 


=(SP) 
a7 tt GETJPI 


#32, #32, USERNAME BUF 
RO, #32, USERNAME _DSC 
NEUF ILE 

UAF FAB 

#1, SYSSOPEN 

RO, RMSERR 

RO, 5$ 


RMSERR 
-(SP 
IL 


) 
a LTBSS1 GNA 
RMSERR, #9896 


#1024 
CMDBUF 
55, ASK 
CMbBUF, RO 
RO. #89 


#1, NEWFILE 


~(SP) 
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UAF MAIN -Jan-1985 17:26:07 AX-11 Bliss-32 v4.0-762 
yOen 000 setup - open initial files ter 2 15:84:97 UAF .BUGSRC JUAFMAIN.B32; 1 
3 5 D9 11 MOVL R0, RMSERR 
D £8 9011 6LBS RO. 6$ 
4 DD 001 PUSHL RMSERR 
— D4 001 CLRL 0s =( SP) 
000000006 oF DO 001 PUSHL f$ CREERR 
65 ; FB 001 CALLS #3, LIBSSIGNAL 
OSFO 9F OOIE 68: PUSHAB UAFRAB 
6A 1 FB 001 CALLS #1, SYSSCONNECT 
3 dO 001 MOVL RO, RMSERR 
D £8 001 BLBS = «RO. 7 
: DD 001 PUSHL  RMSERR 
—E D4 001 CLRL = = (SP) 
000000006 8F DD 0013F PUSHL Byars c 
65 3 a 163 CALLS #3, LTBSSIGNAL 
060€ : 1 148 7$ MOVE #1, UAFRAB+30 
C 2 €9 00140 BLBC =—-_- NEWF ILE 
46 AG 1 00 130 MOVL #1, MODIF 
00000000v Oo Ff 154 CALLS #0, BUILD_INI RECS 
061 0284 F BO 0015 Ve #644, 
0498 ¢é 0 4 8F 80 16 MOVW #644, DEFAULT SIZE 
061 3 49C C4 16 MOVAB DEFAULT_RECORB, UAFRAB+40 
OSFO C3 9F 00170 PUSHAB UAFRAB 
1 FB 00174 CALLS #1, SYS$PUT 
6 0 pO 00177 MOVL RO. RMSERR 
0D 50 €8 0017A BLBS =s«RO, 8S 
$3 DD 00170 PUSHL RMSERR 
E D4 0017F CLRL ss = (SP) 
000000006 af DD 00181 PUSHL #UAF$_PUTERR 
65 FB HH CALLS #2. LTBSSIGNAL 
0618 C3 08 A’ 9E 0018 a3: MOVAB RECBUF, UAFRAB+40 
OSFO C3 9F 00190 PUS UAF RAB 
68 gi FB 00194 CALLS #1, SYS$PUT 
$ 0 pO 00197 VL 0; RMSERR 
F 59 E8 O019A BLBS 0, 11$ 
$ DD 00190 SHL  RMSERR 
E D4 0019F CLRL. = (SP) 
000000006 8F DD O01A1 PUSHL BAF PUTERR 
65 ; f 147 CALLS #3, LIBSSIGNAL 
0614 C3 049¢ ch 9E OOIAC 98: MOVAB DEFAULT_RECORD, UATRAB+%6 
E 4 0018 CLRL = = (SP) 
FEFB oC? «OF 0018 PUSHAB DET USER+? 
7€ FEFA C7? 9A 001 MOVZBL DEFUSER, -(SP) 
00000000v 2 FB 001 CALLS #3, LOCATE _USER 
D £8 O01C BLBS =o 
5 DO O01C PUSHL  RMSERR 
E de SOTCA CLRL. = (SP 
000000006 oF DO O01C PUSHL F$_DEFERR 
65 FB 0010 CALLS #3, LIBSSIGNAL 
0498 C4 061 C 105 10% MOVW UAFRABS DEFAULT SIZE 
4 ¢ 0 A 1DC 118 MOVAB RECBUF, UAFRAB+ 36 
0618 C A 1€ MOVAB RE CBUE UAF RAB+40 
FB OA 0 p 1E MOVL #1, NETUAF_EXISTS 
1030 Ce OF OOTE PUSHAB NAFFAB 
68 1 FB OO1F CALLS #1, SYSSOPEN 
$ 9 dO OO1F MOVL RO. RMSERR 
0 EB 001F6 BLBS =s«aRO. «138 
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i Make sure a legal username was entered, otherwise the account may not be 
» accessible via LOGIN or the Input Symbiont. 


incru i to .tokenlen - 1 


if ch$fail (ch$find_ch (.symbol_str<0 
symbol street 


stgkenbtr 
then return LIBSSIGNAL (UAFS$_INVUSERNAME) ; 
user_dsc(0] = .tokenlen; 

user_dscl1J = recbufluat$t_username]; 


i Move the default record to the current record buffer. so that 
! fields which are not entered will receive the default 
value. Then insert the username just entered. 


&>, 


ch$move (.default_size, default record recbuf); 


ch$copy (.tokenlen, .tokenptr, * ', uafSs_username, recbufCuaf$t_username]); 
' 


i Cait routine to fill in all supplied values. Exit if any errors 
were found. ' 


pwd_flag = true; ! pian to supply a password 
uafrabCrab$w_rsz] = .default_size; 
uaf$gl_ctimskCuaf$v_add] = true; 
if not update_record () 
then 
aegis 
uaf$gl_ctimskCuaf$v_add) = false; 
returns; 
end; 


uaf$gi_ctimskCuaf$v_add] = false; 
if .pwd_flag ! if no explicit password 
then 


begin 

pw doch dscdu. Length) = .defpass<0,8>; 

puddes dsc$a_pointer] = defpass+1; 

gettim (timadr = _time_buf); 

recbuf(uaf$w_salt) =_.fime_buf<3*8, 16>; 

recbufluaf$b_encrypt] = encrypt; 

igiShpwd (rec_encrypt_dsc, pwddsc, .recbufCuaf$b_encrypt], 
. -recbufCuafSw_salt), user_dsc); 

end; 


1 
Now output the new record. 


if rmsbad ($put (rab = uafrab)) 
then 
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if .rmserr eql rms$_d 

then return [18$S1GRAL CUAFS_UAEERR) 

else LIBSSIGNAL(UAFS_ADDERR, 0, .rmserr) 


else 
begin 


' 
Tell user that addition was successful. Note that file was changed. 
| 1BSS1GNAL (UAF$_ADDRSG) 


(uetSal celask vatsy cli] 
and (not .uaf pt ey uaf$v clitables])) 
then LIBSSIGNAL (OAFS$_CLIWARNMSG) ; 
secur ty audit (nsa$k_recid_sysuaf_add); 
modify flag = true; 
if (clT$present ( sd_add_identifier ) and 
-rdb_exists ) 
then 
begin 
! Add the appropriate identifiers. 
! Set the resource attribute if /ATTRIB=RESOURCE was specified 
: aod then add the appropriate identifiers to the rights data base 
if cliSpresent (sd_attribresource) 
then attributes = kgb$m_resource 
else attributes = 0 ; 
uaf$add_ident_recbuf () ; 
end ; 
end; 
end; 
-EXTRN SYSSGETTIM 
ENTRY 000 .UAF . Save R2,R3,R4,R5,R6,R7,R8B,R9,R10,- 
28 006 MOVAB LIBSSIGNAL, R11 
A 000 MOVAB PWD R1 
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000000006 99 1 CALLS #1, 6) SSPRE SENT 
1 BLBC RO, 1 
PUSHL 
PUSHL R 
000000006 00 CALLS eee Gt ISGET VALUE 
04 BLBC RO, 
TS TW TOKENLEN 
BNEQ 
000000005 4 + as F $_NOUSERNAME 
oc ; CMPW ENLEN, #12 
BLEQU 
00000000G 8F PUSHL #UAFS$_NAMETOOBIG 


7 
UA? .BUGSRC JUAFMAIN.832; 1 


Page 49 


(5) 


1235 


1279 


1280 


1281 
1282 
1288 
1289 


se 


Pee Oe ee Oe Oe Oe Oe Oe Oe Oe Oe Oe Oe Oe Oe Oe Oe Oe Oe ee Oe HOO Oe Oe ee ee Oe 


vet 


27 
$3 ! 
+ Oe Ff 
ee, 
O1ED 9 1 624 
1 
9 
000000006 _&F 
OOAF 
53 t 
57 
bE 3 
04 AE 2 
56 FATE CA 
20 AB sFATC. OCCA 
0 06 A 
20 20 60 5 
24 AB 
0698 C8 1 
062A (8 ‘ 
AS AB 0 
000000006 00 9 
05 Q 
AG AB 0 
AG AB 0 
33 C69BCC 
6A = «20.9 
06 AA 012169 
0690 C8 
000000006 0 01 
0186 0693 
0188 «C8 
7E Ot cs 
EOS 
ores 09 
000000006 00 6 
0608 
, 
on 
A ow} 
000184EC BF 0 
000000006 8F 
68 1 


add_uaf - insert new user record 


wn 
So 


co"o-c Ome =e 


Oo fWONn—-C@wow 


st 38: 


BSOoSoSs 
“aw 
-—cw 


> 


a 


“+ 


—— 
SVT > SO 


ban 
-Oct-1 


10$: 


9B 15:64:96 


AX-11 BLi atiy 32 V4.0-742 
UAF .BUGSRC JUAFMAIN.B32; 1 


$ 
SKEMLEN, R3 


OL STR, RI 
RO], RI, SYMBOL_STR+1 


NDWDNA WN Oo D1 
CF 2 + Fs < 
anes 
z 
vo 


ss 


F$_INVUSERNAME 


mn 
we 


ENLEN, R7 
USER. DSC 
Re COU 47 USER, Dsc+4 
DEFAULT Size 
TOKeNETA hertno. RE CBuF 


« (RO), #32, #32, RECBUF +4 


Da wDowwzs fe 
one 


i 


40 
UAPRAB* $4 

 UAFSCL _CTLMSK 
» UPDATE. RECORD 
RO, $ 
#2, UAFSGL_CTLMSK 
#2 prea, aan 
EPPASS © pst 
EF PASss1 PWDDSC+4 
IME _BUF 
1, SYS$G Fst Re 
TRE BUF + tung or 2958 

RECBU 


Bama. =i 


4 C -ENCRYPT psc 
Mee SHPUD 
UA Ras. 

fi, Sysspur 

RO, RMSERR 

RASERR RO 


#99564 


SUAFS UAEERR 
» LTBSSIGNAL 


RO 


=a 


1295 


F 
USFRAIN -Jan-1985 17:24:07 AX-11 Bliss-32 V4.0-742 P 1 
¥06~000 add_uaf = insert new user record ets 4 15384396 UAF .BUGSRC JUAFMAIN.B32¢1 re (3) 
7E D4 901 ; CLRL 3s = (SP) 
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68 3 FB 8 CALLS #3, LIBSSIGNAL i 
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| Fe 145 CALLS a. LTBS$SIGNAL : 
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79 1 &sbttl ‘add proxy - insert new proxy record’ 
1 ES routine add_proxy : novalue = 


lee 
3 FUNCTIONAL DESCRIPTION: 
This routine adds an entry to the NETUAF.DAT Proxy Login File 
INPUTS: 
none 
i OUTPUTS: 
none 
IMPLICIT INPUTS: 
TOKENLEN, TOKENPTR 
: IMPLICIT OUTPUTS: 
none 
ROUTINE VALUE: 
none 
} SIDE EFFECTS: 
A record is added to NETUAF.DAT 
leo 
local 
node-ptr, 
remuser_[en, 


remuser_ptr, 
locuser_len, 
locuser_ptr; 


Can't do anything if there is no NETUAF.DAT... 


if not .netuaf_exists 
then return LIBSSIGNAL (UAFS$_NAFDNE); 


i Clear NETUAF.DAT buffer 
chSfill (" ", naf$c_length, netbuf); 


' 
i Retrieve token from command Line 
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if .locuser_len airy 
then return LIBSSIGNAL (UAF$_NAMETOOBIG); 


1 14 ; : 
1 i 14 cli$get_value (sd_token!, tokendsc); H 
1385 1088 § 
1 6 1440 i Make sure entry is in proper node::remoteuser format 3 
1 : 1308 if not remote parse (node_ptr, node_len, remuser_ptr, remuser_len) ; 
1 1ee7 then return; ; 
1 445 ¢ i FALL in NETBUF with new remotenane field ; 
é te ch$copy (.node_len, .node_ptr, ' ', naf$s_node, netbuf(naf$t noge)); ; 
¢ +38 ch$copy (.remuser_(en, -remuser_ptr, ° °, naf$s_remuser, netbuf naf$t_remuser)); : 
450 2! ; 
$2) Now get second token, the local user name : 
438 cli$get_value (sd_token2, tokendsc); : 
55 locuser_ien = .tokenlen; ; 
26 pocuegr ptr = ,tokenptr; 
3 teerif .locuser_len gtru naf$s_localuser 
5 


' 
If local name is *, then use same name as remote user 


E25 


if .torenlen eqi 1 and . (.tokenptr)<0,8> eql ‘*" 
then 


begin 

lofuser_ten = .remuser_len; 

chenove (naf$s_remuser, netbuf(naf$t_remuser], netbuf(naf$t_localuser]); 
er 


! Otherwise just copy into localuser field in NETBUF 


lse 
ch$c (.locuser_len, .locuser_ptr, ° ', 
ot naf$s_localuser, netbuttnafst_localuser]); 


BISANE NSO VO 


w aN —ooo 


qd 
! Make sure that the local user does indeed exist in SYSUAF.DAT 
(unless local user is *) 


CLSSSSSSSSSSSSSSS 


if not locate_user (.locuser_len, netbuf(naf$t_localuser), 0) 


0 
d . (netbuf(naf$t_localuserd)<0,8> eql ‘*') 


ee ed a a el el ll a el a cl el el el el a el el el el el lh el ee ee ed ee ed 
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98 and not (.locuser_len eql 1 an a 
4 then return LIBSSTGNAL(UAF$_BADUSR, 2, .locuser_len, netbuf(naf$t_localuser]); 
$3) nafrabirab$w_rsz) = naf$c_length; 
208 ; 
Ptr } Add NETUAF.DAT record 
4 if rmsbad (S$put (rab = nafrab)) 
40 91 then 
408 92 begin 
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1493 if .rmserr eql rms$_dup $ 
1494 then F 
1495 etsentt™ LIBSS1GNAL (UAF$_NAFUAEERR) : 
1499 LIBSSIGNAL(UAFS_NAFADDERR, 0, .rmserr) : 
1338 end $ 
13 on™ : 
1 a} pease GNAL (UAF$_NAFADDMSG) ; : 
1 ¢ security_audit Tnsa$k _recid netuaf_add); 3 
: B27 end; : 
1505 netuaf_modified = true; ; 
1506 end; : 
O7FC .ENTRY ADD_PROXY Save af? R3,R4,R5,R6,R7,RB,RO,RIO : 1380 ; 

: Boo000bRe 9h 9 ROvAB CL ISGET VALUE, 

8 80098000" 9 MOV TBUF +64, RB : ; 

10 ¢ SUBL2 #16, SP : : 

FAZC BE BLBS  NETUAF EXISTS, 1$ + 142 ; 

S oooff 06 F D PUSHL F$_RAFDNE + 142 ; 

20 6E a i 2 MOVCS #0, (SP), #32, #100, NETBUF ; 1432 ; 

FAIC CB OQ PUSHAB > 1437 : 

00000000' 9 9 PUSHAB SD_TOKEN! ; : 

6A FB CALLS #2, CLISGET_VALUE F 3 

E oD PUSHL SP > 1442 ; 

08 AE PUSHAB REMUSER_PTR : 3 

10 AE 9F PUSHAB e ; ; 

00000000v 90 08 fe CALLS, fh. REROTE_PARSE 

01 36 if BLES RO, a. : : 

20 OC BE 0 Ag C MOVCS NODE_LEN, @NODE_PTR, #32, #32, NETBUF ; 1447 3 

20 04 BE a § 2c O mOvVCS RerBurs LEN. @REMUSER_PTR, #32, #32, - ; 1448 ; 

ral F PUSHAB sc > 1453 : 

00000000' fF PUSHAB ne 3 3 

FB CALLS ‘ seLiseey VALUE : ; 

$ FAI c8 3 MOVZWL NLEN, ants LEN 3 1455 3 

FA2 d MOVL ORENPTA. LOCUSER : 1456 : 

0 $ : CMP! OCUSER ten, #1 : 1458 : 

8 BLEQU 3 $ 

000000006 i pp PUSHL F$_NAMETOOB1G ; 1459 3 

01 FAIC C8 & CMPW  - TOKENLEN, #1 > 1464 : 

4 BNEQ 3 3 

$0 FA20 C p MOVL TOKENPTR RO ; : 

CMPB ), #2 F ; 

A 12 BNEQ 3 3 
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3 1 Zsbttl ‘remote_parse - parses ‘‘node::remoteuser’” 


= remote parse (node_ptr, node_len, remuser_ptr, remuser_len) = 
gin 


i ROUTINE VALUE: 
i TRUE if parsed successfully 


0 
1} je 
1§ ; FUNCTIONAL DESCRIPTION: 
15 ! This routine parses a remote user specification in the form 
16 : node: :remuser, and returns the two components by lengths 
: and pointers to the strings 
8 INPUTS: 
1 ¢! node_ptr - returned as pointer to nodenane 
§ : node_len - Length of nodename 
5 ; remuser_ptr - returned as pointer to remote user name 
5 ¢ } remuser_len - - a“ Length of remote user name 
526 : IMPLICIT INPUTS: 
528 i TOKENLEN and TOKENPTR = the remote user specification is assumed 
529 } to have just been fetched from the command Line 
3 1 i OUTPUTS: 
5 : : 
none 
5 3 | 
‘ 
FALSE if error encountered in parsing 
Sen 
map 
dbi_colon : vector; 
local 
dbl_colon_ptr; 


a 
Better be able to find a double colon in the remotename... 


dbl_colon_ptr = ch$find_sub (.tokenlen, .tokenptr, 2, .dbl_colon (1)); 


if .dbl_colon_ptr eql 0 ! no double colon found 
or .dbi_colon_ptr eql .tokenptr ! no node found 

or .dbl colon per eql jacouenser + ,tokenlen - 2) ! no remote user found 
then return LTB$SI (UAF $_BADNODF ORM) ; 


' 
: Determine node length and pointer 


COONS NEW O OOVNOU EWN OO O@ 


-node_len = .dbl_colon_ptr - .tokenptr; 
-node_ptr = .tokenptr; 


a et ee ee a a a ee ee ee ee ee el a el el ee a ee ee ee eed ed 


ab ab Ab th ah ah ah Ab hh beth hb did dub db dh bbb db dh th dh db dbedbudh bh sh sh a) 


pe ee ee tee PPLE EEE 


WN 


SS 
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5 
3 


; 1481 1 $ : 

: ‘¢ § : 5 ; Make sure node name isn't too long 

: 16 1 3] ieeeif . (.mnode len) gtru naf$s_node 

> 1485 1 Fe: if . (.node_leny airy 6 

: 1? : $3 then return LIBSSIGNAL (UAF$_NODTOOBIG); 

: 14 1571 2! 

: ¢ : ; Determine remote username length and pointer 
: 1491 1574 2 .remuser_len = .tokenlen = .(.node_len) = 2; 
3 1336 1575 -remuser ptr = .dbl_colon_ptr + 2; 

: 1434 1879 § 

; 1ee2 1378 : And make sure name isn't too long 

: 1099 1580 ieeeif . (.remuser_len) gtru naf$s_remuser 

; 1498 1581 if . (.remuser bend gtru 2 

: 1320 2 ; then return LIBSSIGNAL (UAFS$_NAMETOOBIG); 

: 1501 1584 return true; 

; 1502 1585 1 end; 


007C 00000 REMOTE_PARSE: 
WORD 


; Save R2,R3,R4,R5,R6 : 1508 

56 00000000° 00 0000 MOVAB TOKENLEN, R : 

28 hh Hi tated MOVZWL TOKENLEN, R > 1551 
MOVL  TOKENPTR, RG : 
MOVL =fOLONe4 RO ; 
MATCHC #2,°(RO), R5, (RO) : 
BEQL 1 : 
MOVL #2, R3 : 
SUBL2 #2, R : 

BEQL 2 ; 1553 
CPL aoe fie RG : 1554 
MOVAB =2(RS)(R4), RO : 1555 
cnt L_COLON_PTR, RO : 
PUSHL FUAF $_BADNODF ORM : 1556 
BRB : 

MOVL.  TOKENPTR, RO > 1561 
SUBL3 RO, DBL _COLON_PTR, @NODE_LEN : 

ROVL RO, @NODE_PTR 3 7 
CMPL  @NODE_LEN; #6 31 
BLEQU 4$ : 
PUSHL SAF $_NODTOOBIG > 1569 
BRB 3 
MOVZWL TOKENLEN, RO > 157% 
SUBL 2 anode LEN, RO ; 
MOVAB -2(ROT, @REMUSER_LEN ; 
MOVAB 2(R3), @REMUSER PTR : 1575 
CMPL  @REMUSER_LEN, a2 > 1§81 


ied 
y0e000 remote_parse - parses ‘‘node::remoteuser”’ S232 71382 15: 64: OF. F  BUESR {fuatakti N.B $2, 


— 18 BLEQU 
000000006 oF DD F PUSH AF $_NAMET 
000000006 00 1 8 ee. 5$: Bt me LTBSSIGNA NAL 
50 01 00 00070 68: wi, R 
“00080 RET" . 


SS 
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copy_uaf = copy user record ae Hi 15:84;96 
1 a e , 

1389 | stopat routlae'copy‘ust “se” "*ers 

: Beg n 

1 


'oe 
' 
: FUNCTIONAL DESCRIPTION: 


Routine to copy a user authori 
new authorization record a dif 


INPUTS: 

none 
IMPLICIT INPUTS: 

none 
OUTPUTS: 

none 
ROUTINE VALUE: 


erent name. 


false if the copy fails; 
true if the copy succeeds. 


SIDE EFFECTS: 
A user record is added. 


local 

status, 

{tag. 

lock_rec, 

def_sys. 

old_user_buffer : vector Cuaf$s_username, byte); 
map 


tokenptr : ref vector C,bytel; 


aw 


peeves record, giving the 


uaf$gl_ctlmskCuaf$v_copy] = not .uef$gl_ctlmskCuaf$v_ rename); 
i If this is a COPY directly from the UAF> prompt, the authorization 


record need not be locked, and the default and y 
copied. HOWEVER, if this COPY is part of a REN 


stem records may be 
E operation, the record 


must be locked, ang the Soteyit and system records may not be renamed. 


ginal record is REMOVE'd. COPY Leaves 


f not .vaf$gl_ctlmskCuaf$v_rename] 
then 
begin 


i] 

i 

i 

i] 

! (The a Hy Hes operat 
the or 
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similar to the COPY operation once 
oth records. 
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lock_rec = false; ! A COPY operation 
ef_sys true; 
flag = false 
end 

else 
begin 
lock_rec = true; ! A RENAME operation 
def _sys false; 
flag = true; 
end; 


lace record to be copied into RECBUF 
If the third argument is true, the call to GET_USER_RECORD 


If the third argument is false, the call is part of a COPY 
operation, and the first token need not be saved.) 


if get_user_record (.lock_rec, .def_sys, .flag) 

then : Make sure a username was 
begin ! specified 
if not cli$present (sd_token2) 

or not cli$get_value (sd_token2, tokendsc) 


or .tokenlen oat 
then return LIBSSIGNAL (UAF$_NOUSERNAME) ; 


Make sure that the new username isn't too long 


ieee if .tokenlen gtru uaf$s_username 
if .tokenlen Pins 
then L1B$S1GNAL (UAF$_NAMETOOBIG) ; 


Make sure that the new username is legal 
"  ineru i to .tokenlen - 1 


if ch$fail (ch$find_ch (.symbol_str<0,8>, 
symbol str + 1 
,tokenptr C.i]) 
then return LIBSSIGNAL (UAFS_INVUSERNAME) ; 
! 


: If this is a rename save the new user name 


if .uaf$gl_ctlmskCuaf$v_rename] 
then 


ra by 

ch ve (.tokenlen, .tokenptr, newusername); 
Sopenaeten = ,tokenlen; 

end ; 


; Place the new username in RELBUF, but save the old username first 


i 


is part of a RENAME operation, and the first token should be saved. 


UAFMAIN.B32;1 


Page BY 


ch$fill ( 0, uaf$s_lastlogin_n, recbufluaf$q_ Lastlogin_n] ) 


UAFMAIN £ ane19 5 17:26:07 AX-11 Bliss-32 V4.0-742 Page 61 
v06 06-000 copy_uaf = copy user record “gan 1 85 153 8t: :10 UAF .BUGSRC JUAFMAIN.B32;1 . (8) 
1618 1700 ch$move fuatSs username, reciufluaf$t_username], old_user_buffer); 
1619 70 ch$copy (.tokenlen, .tokenpt 
1620 70 uaf$s username, ~ + CP El eee ome); 
YF 1 4 pwd_flag = true; 
6 g 70 status = update record (); 
re 70 f not .status 
6 70 then return false; 
6 70 
6 70 : 
2 4) } If this is a copy operation then zero fill the last login info 
6 71 if not .vaf$gl_ctlmskCuaf$v_rename) 
71 then 
71 begin 
71 ros tut tuetie ~logfatts) = 0; 
4, ch$fill (0, $s _lastlogin_ i, recbufCuaf$q_lastlogin_i] ) 
71 
1 
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Now output the new record 
"  #f rmsbad (Spet (rab = uafrab)) 
ther 


rs 


begin 
if .rmserr el ras$_dup 
then 


JPoPoRoPoTRfoTn 


IRN SO ODOM WN 0 ODNAMNE WN OOO NOU EWR 


33d3a 353550" BEERS 
DEAN 9 OBNAMN EWR 0 ODNANE WN HOO DNOUE 
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7 
7 4 
7 3 
7 4 
rf 
4 : aa return Li@$S1GNAL (UAF$_UACERR) ! username already exists 
else 
7 5 
7 : UBSSiona (uars -ADDERR, 0, .rmserr); 
65 7 return false; 
65 7 5 end 
65 7 4 end 
63 5 else 
62 The copy was successful -- tell the user and set modify flag 
re] 739 4 bogie 
658 740 & ity flag = true 
659 741 ; secur ity_audit (Cit not -uaf$gl_ctlaskCuaf$v_rename] 
660 tg then nsaSk_recid_sysuaf_cop” 
661 743 4 fs"? nsaSk— rei “sysuaf_ren), 
666 744 & user prt 
66 745 & if “ret -uaf$gl_ ctine uat$v_ aot 
664 be & 
665 74 ; bogie 
666 me i oS Gat (UNS COPMSG); 
66 749 6 (-uafSel, ttasktue lev vet t) 
098 £30 ond nd not ‘ atéat crt past ua fey, sh veabienss 
and .ua mS pres 
o0 rg then uattg acttaskluatty clita. p 
67% 754 i Since passwords ere folded in with the username, passwords for 
677 P32 : COPYed records will no longer work--warn the user 
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vant 


: 1675 1757 if .pwd_fle 

3; 167 1788 then t 185s 1 ONAL ( AFS_DEFPWD); 

; 167 17 uaf$gl gt laskCus $v_copy] = false; 

; 1678 1760 6 if (cl¥$present ( sd_add_identifier ) and 
: it 178) 8 -rdb_exists ) 

: n 

ig ig rei 

31 1765 6 i Set the resource attribute if /ATTRIB=RESOURCE was specified 
: ee 1706 ? and then add the appropriate identifiers to the rights data base 
[1 1768 6 if cliSpresent (sd_attribresource) 

; 1889 1769 6 then attributes = kgb$m_resource 
; 1688 1770 6 else attributes = 0 ; 

; 1689 1771 3 uafSadd_ident_recbuf () ; 

; 1690 1776 end; 

; 1691 17735 & end; 

: 1698 1774 end ; 

3; 169 1775 end 

2) cae 

; 5 ' 

: 1908 1778 The attempt to GET_USER_RECORD failed... 

: 1698 1780 2 else return false; 

: 1980 yap 3 

: 1701 1788 : If we get here, everything succeeded -- return true 
3 H 4 4 

: 1308 1785 5 return true; 

3; 1704 1786 2 

3; 1705 1787 1 end; 


OFFC ENTRY COPY _UAF Save R2,R3,R4,R5,R6,R7,RB.RO_RI0,-; 
B G 9E MOVAB (CLISPRESENT, R11 
A 00 ' 9E VAB NEWUSERNAME, R10 
9 ' 9E MOVAB SD _TOKEN2, R9 
8 G MOVAB LIBS$SI , RB 
0 MOV UAFSGL_CTLMSK, R7 
f Co 00 SuBL #32, SP 
50 67 : ef ex! v ns 4 , UAFSGL_CTLMSK, RO 
67 01 2 ro INSV oR 3 ie UAF $GL_CTLISK 
3 BLBS § UAFSGL CTLASK, 1 
1 1 70 mova #1, DEF_SYS 
0 ps CLRL = FLAG 
1 BRB 
52 bo MOVL #1, LOCK_REC 
1 MOVG #1. FLAG 
9 DD PUSHL FL 
DD PUSHL DEF _SYS_ 
: DD PUSHL Lock REC 
00000000v 00 FB CALLS #3, GET_USER_RECORD 


re $3 


1587 


UAFMAIN 


v04-009) copy_uaf - copy user record 
03 : 
01 

2 
cM 
000000006 60 

0 
5¢ a 
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oc 5C of 
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$f 1 
5 5¢ 5 
s 
51 Oipce «CC 
50 60 A? 
O1DD «=6C9 51 “8 
51 
08 
000000096 of 
aon 8 
D 
10 67 
56 5¢ A? 
50 60 a7 
6A 60 26 

FC AA 
6E 0080 44 9 23 
20 20 60 008s a 
FE C7 1 

000008006 4 
= O1E0 e 
” = we 0208 9 
08 00 6E 210 og 
ay 7 
000000006 o¢ ; 
74 af p 
Soom | 
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UAF .BUGSRC JUAFMAIN.B32;1 
BLBS ~=s-«aRO, 38 
BRw Be 
SHL  R 
CALLS #1, CLISPRESENT 
BLBC ‘ 
PUSHAB TOKENDSC 
PUSHL 
CALLS #2, CL ISGET_VALUE 
BLBC RO, 4 
TSTw § TOKENLEN 
BNEQ 
PUSHL AF $_NOUSERNAME 
MPW  TOKENLEN, #12 
BLEQU 
PUSHL #UAF$_NAMETOOBIG 
CALLS #1, LYBSSIGNAL 
MOVZWL TOKENLEN, R3 
DECL =R 
CLAL 
BRB 11$ 
MOVZBL SYMBOL_STR, R1 
MOVL. TOKENPTR, 
LOCC (1)CROJ, R1, SYMBOL_STR+1 
BNEQ 8 
CLAL sR 
TSTL = RY 
EO 43=s._:«*108 
PUSHL  #UAF$_INVUSERNAME 
BRB 14$ 
INCL 
CMPL R3 
BLEQU =7$ 
LBC = UAFSGL_CTLMSK, 12$ 
MOVZWL TOKENLEN, R6 
VL. TOKENPTR, RO 
MOVC3 6, (RO), NEWUSERNAME 
VL Re NEWUSERLEN 
MOVC3 #32, RECBUF+4, OLD_USER_BUFFER 
VL.‘ TOKENPTR, 
MOVCS TOKENLEN, (RO), #32, #32, RECBUF +4 
VL #1, ~PWwD_FLAG 
CALLS #0, UPDATE RECORD 
BLBC = STATUS, 
BLBS _—UAFSGL I MSK, 13$ 
CLRW «=: RECBUFT 
MOVCS , (SP), #0, #8, RECBUF +396 
MOVCS #0, (SP), #0, #8, RECBUF +404 
Pus UAFRAB 
CALLS #1, SYS$PUT 
MOVL RO, RMSERR 
BLBS 17 
MOVL RMSERR, ® 
CMPL = RO, #9956 


Poe § 
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1 Zsbttl ‘create_proxy - create NETUAF.DAT prony file’ 
1 = routine create_proxy : novalue = 


tee 
' 


FUNCTIONAL DESCRIPTION: 


This routine will create a DECnet Proxy Login File, 
and only if it does not already exist, 

called NETUAF.DAT, in order to map remote users into 

local accounts. 


3 
= 
wn 


none 
i OUTPUTS: 
i none 
IMPLICIT INPUTS: 
none 
IMPLICIT OUTPUTS: 
none 
SIDE EFFECTS: 
NETUAF.DAT is created and initialized 


' 
: NETUAF.DAT should not already exist 


if .netuaf_exists 
then 
begin 
LIBSSIGNAL (UAF $_NAFAEX) ; 
return; 
end; 
J 
; Should be able to create NETUAF.DAT with no problems 


if rmsbad (Screate (fab = naffab)) 
then LIBSSIGNAL (UAFS_NAFCREERR, 0, .rmserr); 


' 
Should connect ok, too 


if rmsbad (Sconnect (rab = nafrab)) 
then LIBSSIGNAL (UAFS_NAFCONERR, 0, .rmserr); 


AX-11 Bliss-32 V4.0-742 
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q 
capita 198k Wesb1i8o | LOA buesdesuseattnCasses Pose Sf 


$5 
se 


create proxy = create NETUAF.DAT proxy file 


; Routine Size: 123 bytes, Routine Base: SCODES + O88F 


: 1788 } ig ' : 
: 17 184 i " i k : 
Heh TER Ease tnamnrect rete : 
3 naTtra ra racj = radsc_key; P4 
Peg | 8 Patan ener: : 
; 177) ! iH Establish proper addresses ; 
: 1378 1854 2 nafrab [rab$l_ubf) = netbuf;: ; 
3: 1774 1855 nafrab Lrab$l_rbf] = netbuf; : 
nae : 
: 177 1828 ; Set NETUAF.DAT existence flag ; 
: 1779 1860 2 netuaf_exists = true; : 
; 1780 1861 netuaf_modified = true; 3 
; 1781 186¢ ; 
> 1782 186 end; : 
000c¢ 00000 .ENTRY CREATE_PROXY, Save R2.R3 ; : 

aS GUNSSSRE 98 3 S888) AS! UbHarOns: : : 

OA F +3 5 00010 BLBC NETUAF EXISTS, 1$ : ; 

000000006 ar DD 00014 PUSHL #UAF$_RAFAEX : : 

3 1 FB 1A CALLS #1, LIBSSIGNAL : : 

00000000" 00 oF — 1$: PUSHAB NAFFAB : 3 

000000006 ? i 024 CALLS #1, SYSSCREATE : ; 

dO 00C MOVL RO. RMSERR : : 

0D Q E8 000 F BLBS sR : ; 

$e be 000 PUSH BERR 

000000006 8F pp 038 PUSHL  #UAFS_NAFCREERR ; ; 

3 : FB 00 CALLS #3, LIBSSIGNAL ; : 

0634 9F OOO3E 28: PUSHAB NAFR : : 

000000006 or 1 FB 00 CALLS #1, SYSSCONNECT : : 

62 DO 00¢ ROVE RO. RMSERR ; ; 

D E8 00 BLBS RO, 3$ : ; 

a One 

(00000006 8F DD 00C 3 PUSHL F$_NAF CONERR ; ; 

6 3 FB 000 CALLS #3, LIBSSIGNAL ; ; 

35 C 1 3$: MOVB #1, NAFRAB+30 ; 3 

58 OC 958¢ C MOVAB NEfBUr, NAF RAB* 36 ; $ 

oa 58C 06 MOVAB NF TBUF NAFRAB+4 : 3 

‘BOA 6 D0 Q006F MOVL #1, NETUAF_EXISTS ; 3 

' 0 1 p 073 MOVL #1. NETUAF"MODIFIED : : 

4 0007A RET ; 3 
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modify_uaf ~ update user record (s) 


1 Zsbttl ‘modify_uaf - update user record (s)' 
= routine modify uat : novalue = 


— ee 


FUNCTIONAL DESCRIPTION: 


— Pt 


Routine to modify any of the fields in one or more user records. 


i ‘ 

i 

: - 

: 

794 i INPUTS: ; 

? none ; 

28 { IMPLICIT INPUTS: ; 

, none 

: ' OUTPUTS: ; 

i no : 

bss id senna ; 

ae : : 

oe none 

ha SIDE EFFECTS: é 

i é 

B32 : none ; 

894 ' ROUTINE VALUE: 3 

536 ! 3 

: none 3 

97 @ i-- 

898 : 
99 Loca 

status; 


Y 
i Obtain tie user specification. This sets wildcard flags and initiali 
: the appropriste key in RECBUF. . tab 


if not parse_wild (sd_token!, false) ! Null string is disallowed 
then return; 


Sess eeaes 


uafrabCrab$l_rop) = rab$m_rlk; ! Lock records for writing 
rabptr = outrab; 
found match = false; 


if rasbed (status = wild_user (modify_rec)) ! Modify each record 


begin 
-rmserr eql rms$_rnf 


then 
LIBSSIGNAL (UAF$_BADSPC) 
else 
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1921 4 (if .rmserr neq 0 
19 § 4 then 
13 ? LIBSSIGNAL (UAFS_MDFYERR, 0, .rmserr)) 
3 5 else 
1 § begin 
19 if .status and .found_match 
19 then 
19 & begin 
1930 4 rT. SSIGNAL (UAFS$_MDFYMSG); 
1931 2 f (.uaf$gl gt ines uaf vact id 
1932 and not ,uaf$gl_ctimsk(ua Sy clitebles)) 
1933 4% and .uaf$gl_ctlask yet v_clitab_pres 
1934 4 then LIBSSIGNAL (UAFS_CLIQARNMSG); 
1935 end; 
19 $ end; 
19 end; 
001C 00000 eENTRY MODIFY_UAF, Save R2,R3.R4 : 1865 
3 44 4 6 9E 0000 VAB LIBSSIGNAL, R4 5 
3 00000000' 9E MOVAB UAFSGL_CTLASK, R3 ; 
4 CLAL -(SP) ; 1907 
00000000 fF PUSHAB SD_TOKEN1 : 
000000006 : Sy ta H¥ PARSE _WILD : 
0668 C3 00089009 BF DO MOVL #526288, UAFRAB+4 + 1916 
FS AS F ce E MOVAB OUTRAB, RABPTR 3 1911 
; 3¢ 4 CLAL MATC 3; 1912 
00000000v 00 9F Ss I1FY_REC 3 1914 
00000000v 0 1 F CALLS #1, WICD_USER : 
74 «OA 0 D VL TATUS, RMSERR : 
g E BLBS STATUS, 2 3 
2 7% «6€60—A3 COD MOVL RMSERR 3 1917 
00018282 BF 5 } CAPE Re. #98994 ; 
000000006 fF 90 PUSHL F$_BADSPC ; 1919 
BRB 3 3 
ft a ows 
¢ V4 PUSHL R : 1923 
0 CLAL (SP) 3 
000000006 of 0D $ gab sth in 3 
3 fe cats #3, LIBSSIGNAL : 1916 
1€ 73¢) C39 OF Blac OoéF MATCH, 4$ : 19 
000000006 8F ODD PUSHL iti FYMSG : 19 
64 1 fo CALLS #1, LIBSSIGNAL 3 
6 a... i BBC #3, UAFSGL_CTLASK, 4$ ; 1931 
43 6 3 BBS a4, UAF _CILMSK, 4$ 3 19 § 
9 5 i BBC #5 ‘wie CTLMASK, 4$ 3 19 
00000000G 8F ODD PUSHL F Ch LUARNASG ; 19 
64 1 re CALLS #1, LYBSSIGNAL : 
RET 3; 1937 
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; Routine Size: 148 bytes, Routine Base: SCODES + O9CA 
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1 Zsbttl ‘modify_rec - update a user record action routine’ 
1 roawee modify_rec = 


ROUTINE VALUE: 


If an error is encountered the eperenr tees status is returned 
except if the error message has a 


ready been output in which 
case 0 is returned. 


13 
1940 in 
19¢$ ® 
19e8 $i 
1966 ; FUNCTIONAL DESCRIPTION: 
1946 ; Modify an individual user record. 
94 i INPUTS: 
94 i 
320 } none 
93¢ ; IMPLICIT INPUTS: 
334 ! RABPTR = RMS data structure for the file 
95 i OUTPUTS: 
i | haa 
989 5 | 
960 i IMPLICIT OUTPUTS: 
961 i 
oer. } none 
964 i SIDE EFFECTS: 
965 ; 
' none 
' 
; 
' 
' 
' 


local 
old_uic : $bblock(4], 
new_uic : Sbblockl4 
oldaccname : vector uaf$s_account,byte P 
newaccname : vector Cuaf$s_account, byte), 
oldaccdesc =: statdesc , 
mewaccdesc : statdesc , 
status : long ; 


o BSSsssssrsese g 
SESSee SIS5S55S5 
MP wh BNAUFSWV—O”O 
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User record has been read into RECBUF by caller. Update values 
and modify the record. 


When accessing records H vic, this routine is called repeatedly 
from WILD_USER. UPDATE_RECORD is called to modify the appropriate 
record fields for each requested record, and therefore must 
reparse the command line each time. If call_count is greater 
than 0, the command Line is reparsed. 
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ites . by account 
! MOF NOT fmgSmatch_name (NAMELEN (UAESS OSEOUMT -UaeSt A ACCOUNT), 


ey 


SSS SFSSSS3ZS33 


| 
| 
THEN match _tokenlén, match. token) 
RETURN TRUE) 
f .str_wild 


' 
' 
' 
i 
i 
and not ~tmgSmatch_ name (namelen (uaf$s_username,recbufCuaf$t_username]), 
recbufCuaf$t_username 
-match_tokenTen, match_ token} 
then return true; 
found_match = true; 


if ch$eql (.defuser<0,8>, defuser+1, .tokenlen, .tokenptr, ' °) 
or ch$eql (.defuser<0,8>, defuser+1, 
name len (uaf$s username, recbutluatst _username)), 
vl recbufCuaf$t_uSername), 
en 


<9 

default : , runs 
default_uaf ( 

call_count = mt at count + 1; 
return true; 


end; 
1 
Save the old UIC and account name 
4 
3 
4 
4 


— ss — — a a a 


MEUM O OONONE WN "OOOO UNF WR 


old vicCuic$v_format 
old_vic(uic$v_group J] = = srecbut t puatge orp} : 
old-uic uicdy, ee = .recbuf Cuaf$w 

ch$move Ss_ zbt count. rebut puerse account), oldaccname ) ; 
onions lessen = namelen ( uat$s _account, recbufCuaf$t _account)) : 
oldaccdesc [pointer] = oldaccname ; 


if update_record () 
then 
begin 
Save the new UIC and account name 
new vicCuic$v_ format 
new_uicluic$v_grovse ) = Solus fuatsu. 978} 
new_uiciuic$v_ srember = .recbuf Cuaf$w 
ch$move ( uafSs_a SE COUR - recbufCuaf$t account), newaccname 
newaccdesc Clength] = namelen ( uaf$s _account, aves oe peo M. account)? : 
newaccdesc [pointer] = newaccname ; 
| Update the UAF record 


if rmsbad (Supdate (rab = uafrab)) 
then 


OOOGOCOCOOCOSOCSCOOOCOOCOGOOCOOOCOOOOOCCOCO 
RARRRERERRRE 


—OOOwO Vf wt 0 0 


begin 
LIBSSIGNAL (UAFS_MDFYERR, 0, .rmserr); 
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return .rmserr 
end 
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- i9 fl t 
mo @qg = true; 
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yaudit (nsa$k_recid_sysuat_mod); 
L.count = .call_count + T; 


if (cli$present ( sd_modify_identifier ) and 
-rdb_exists ) 
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i 
If the UIC changed then modify the identifiers 


if .old_uic neq .new_uic 
then 


333333 
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begin 

local 
oldidname : vector Ckgb$s_name, byte], 
oldiddesc : statdesc ; 


oldiddescClength]_ = kpbfe none : 
oldiddesc ee.tter2 = 8 didname ; 


status = Sidtoasc = .old_uic, 
namlen = oldiddescClength), 
nambuf = oldiddesc ) ; 
if not .status 
then LIBSSIGNAL (UAF$_RDBROF YERR 


o 2. 
-old_uic cick arent 
-old uvicluicSv_member), .status) 
else if .status 
then 


begin 
status = Smod_ident ( id = .old_uic, 
new_value = 


if not .status 


n= 


New_uic ) ; 


then LIBSSIGNAL(UAF$_RDBMDFYERR, 1, oldiddesc, .status) 


else 
begin 
rightslist_modified = true ; 
LTBSSIGNALTUAFS_RDBROF YASG, 1, oldiddesc); 
end ; 
end ; 
end; 


end ; 
++ tates true ; 


egin 
release (rab = uafrab); 
return false 
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-EXTRN SYSSUPDATE, SYSSMOD_IDENT 
SEXTRN SYSS$RELEASE 


O7FC 00000 MODIFY_REC: 


.R3.R4 R5S,R6,R7,RB,R9,R10 
AL, ‘a 


Vs DWQMw 
we oa. 
-—> 
— 


Pte BU R 
#32, RE CBUF +4 
-32(R0), R2 


R 
MATCH_TOKENLEN, R4 
FMGSMATCH_NAME 


RO, 3 
#1. FOUND MATCH 
DEFUSER Re 


ag 


BTR 
cE OEFUSERS1, #32, TOKENLEN, 


2$ 
#32, #32, RECBUF +4 
R4, DEFUSER+1, #32, RO, RECBUF+4 


, MOD DEFAULT 
10; DEF AULT_UAF 
CALL_COUNT ~ 


#0, #30, #2, OLD_UIC 

RE taure 8. in, mull OLD_UIC 
= OLDACCNAME 
OUP ECBUFS$> 
“ODA Pepe 


i 
a CCNAME, OLDACCDESC+4 
r) UPDATE. "RECORD 


ReCBUF $ “fe. pi His NEW_UIC 


is: ithe 2-1 NEYACCNARE 
, #3 NEWACLDE SC 


(RO) 
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D4 0017D 
0D 17F 
F 181 
D 1 
E 1 
D 001 
fF 1 
8318 
re O98 
90 OO1A5 
BD OOTAS 
DD 188 


an-1985 


ee “19 


oa 
bad 


7$: 


Be 15:61: 


0 AX-11 Bliss-32 V4.0-742 


UAF .BUGSRC JUAFMAIN.B32; 1 
AC CNAME , NEWACCDESC +4 


repyeeate 
MSERR 


1 
N 
U 
a 


DD 
oo-rm ON 


i MDF YERR 
JOSS 1 GAL 

#1, MODIFY_FLAG 
#196 

p, Sena AUDIT 


cai 
D-NODIFY IDENTIFIER 
in: LISPRES 


$ 
RDB EXISTS, 10$ 
OLD“UIC, NEW_UIC 


AES ohh F {eee 


a2 


ESC 
apo OO DIDDESC +4 


U 
orp UIC -(SP) 
wid, OLD_UIC, -(SP) 


FS + yy At ga 
LTB$SIG 


gs o-8 “S¥Ssmoo_ IDENT 
RO. 

StAtUs. i 

STATUS 

OL DIDDESC 


#UAF$_ROBMDF YERR 
#4, LTBSSIGNAL 


sie RIGHTSLIS*_MODIFIED 


ie 
#UAF $_RDBMOF YMSG 


Page 74 
. (11) 


50¢8 


2051 


<cC 


vant 


; Routine Size: 


modify_rec = update a user record action 


50 i 


routin a 


OSES §=6C8 $F 00 00185 

000000006 00 01 FB 00189 
50 » 001C0 

4 001C2 


451 bytes, Routine Base: SCODE$ + O99E 


Jan-19 
“Oct-19 


b6 GOiBy tos: 


118: 


51 4: Ax-11 Oi tee - 
15 8% 05 UAF. BUGSRTS U 

CALLS) = #3,  atalatat 

ROVL wi, R 

RET 

PUSHAB UAFRAB 

CALLS #1, SYSSRELEASE 

CLAL 0 

RET 


32 
AF 


V4.0-74 
mAlieso—1 


—- -- + - —- 5 


10 
UAFMAIN -Jan-1985 17:26:07 AX-11 Bliss-32 v4.0-742 Page 76 
V06~000 remove_uaf - remove username from file be don-19es 13:84:96 (UAF -BUGSRe UAFMAIN.B32;1 . (12) 
; 20 § 1 Zsbttl ‘remove_uaf - remove username from file’ 
; 20 1 proper routine remove_uaf : novalue = 
: ¢ egin 
: 1+¢ 
; O38 i FUNCTIONAL DESCRIPTION: 
; ea Routine to delete a user record from the UAF file. 
; Dug i INPUTS: 
: Oi none 
: 046 i OUTPUTS: 
3 204 ! 
; ore none 
; 2050 { IMPLICIT INPUTS: 
: O28 i rename: a logical flag which indicates whether this CUPY is part 
3 tt : } of a RENAME operation 
; 059 i ROUTINE VALUE: 
Bel HUE tne 
; 059 f i SIDE EFFECTS: 
: 061 139 i This routine also deletes | NETUAF entries for the 
; O66 140 local user which is to be removed (If NETUAF.DAT exists) 
 S0ee 123 bel 
: 2065 14 
3 pos 144 ! 
: 206 145 ! Look for the record specified by the user. Make sure 
: 2068 166 } the DEFAULT and SYSTEM records are not removed. 
: 148 2 
3 149 if get_user_record (true, false) 
3 150 then 
F 13) ’ 
; 138 i User record has been found and read into RECBUF 
: : : : Zero the username field and update the record in the file 
; 136 "begin 
3 157 4 if rmsbad (S$delete (rab=uafrab)) 
3 138 then 
; 15 LIBSSIGNAL (UAFS_REMERR, 0, .rmserr) 
3 160 else 
$ 161 4 begin 
; 166 4 nodit flag = true; ! mark file as modified 
3 197 ? uy not -uat$gl_ctlmskCuaf$v_rename) 
3 en 
5 165 4 security audit (nsaSk recté, syquet det); 
: 166 4 if not wuafegl_ctlmsk uafSv_renane 


ee = 


vant 


9 


a3 


SES332 


2s 


oo 
wir 


es nu nt ss a ss a ss 
SRLIESE 


_ 
o 


STOO 
OOoon 


ee 
MEW OO OONOUS WN 


tt et st st 8 et st 


remove 


QAI DDA PD AAAI 


53 000000006 00 9€ LIBSSIGNAL, 
52 > popoonoes 90 : ROVAB RASERR i 
00000000v 9 03 iS CALLS a3: GET_USER_RECORD 
OSFO F PUSHAB UAFRAB 
000000006 09 ¢ F CALLS #1, SYSSDELETE 
i ee pegs ag: sem 
6 DD PUSHL RMSERR 
E D4 CLRL. = (§P) 
000000006 BF oD PUSHL Byars REMERR 
3 03 re CALLS LTB$S1GNAL 
00000000° 09 01 06 POVL #1, MODIFY_FLAG 
4 ofS A2 € BLBS UAFS b CTLASK, 3$ 
00020 ar DD PUSHL #131 
00000000v i . 01 is CALLS #1 gst insite 
OR Es Bia, MeTUAFExIS 
00000000v 00 1 FB CALLS #1, ADJUST_PROXY 
000000006 8F DD SH FS RERASG 
5 90000000" 9) $F PUSHAB SD‘REMOVE IDENTIFIER 
000000006 ° F CALLS #17 LISPRESENT 
FC Ap Stee ADG_EXISTS, 38 
000000006 B CALLS cit Ee RE CBUF 


uaf = remove username from file 
then 


end; 


F 10 
-Jan-19 AX-13 Bliss-32 V4.0-74 
sotto. 15: $1 % UAF. BUGSRC) SuaFMAIN BSo.1 


begin 


i If there is a proxy jogin file, delete entries for 
the user just removed fron SYSUAF.DAT 


: — 1 existe , ds); 
ena xy (remove_records 
rats *REMMSG) ; 


} 

t 

188s! 

i Untess spec trical ty requested not t 

remove the corresponding fdentitier from the 

rights data base. 

if (cli$present ( sd_remove_identifier ) and 
-rdb_exists ) 


en. 
st uaf$remove_ident_recbuf () ; 


-EXTRN SYSSDELETE 
sENTRY REMOVE _UAF, save R2,R3 
MOVAB R 


Cd 


. 
. 
. 
. 
. 
a 
. 
* 
. 
. 
. 
*. 
. 
. 
. 
a 
. 
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. 
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. 
. 
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. 
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. 
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o 
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. 
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. 
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. 
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+ 
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. 
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. 
. 
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. 
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. 
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. 
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UAFM -Jan-1985 1 AX=11 Blisg-32 V4.0-742 P 8 
¥06000 remove_uaf - remove username from file FeJonctg 4 15: iE % UAF .BUGSRC JUAF MAIN.B32; 1 age 28 


04 00089 3$: RET :; 2188 
; Routine Size: 138 bytes, Routine Base: S$CODES + 0861 


ee 


nesu 


nn 
ow 


H 
UAF MAIN “Jan-1985 17:26:07 AX- 
¥06~000 remove proxy = remove a proxy record tH 15:84:96 UAF -BUE 


SIDE EFFECTS: 
An entry is removed from NETUAF .DAT 


node_len, 
node_ 
remuser_len, 
remuser_ptr, 
counter, 
success; 


; Make sure NETUAF.DAT exists 


if not .netuaf gxists 
then return LIBSSIGNAL (UAFS$_NAFDNE); 


d 
: Retrieve remote name in node::remotename form 


cli$get_value (sd_token!, tokendsc); 


11 1 1 &sbttl ‘remove_proxy - remove a 5 
118 196 1 global rout ne-remove proxy: novalus geri 
18 198 . 
118 19 lee 
11 194 : 
118 12? FUNCTIONAL CHARACTERISTICS: 
} 199 This routine removes proxy login entries from NETUAF.DAT 
: 199 } INPUTS: 
4 8 none 
$ 08 OUTPUTS: 
8 05 none 
Q oF IMPLICIT INPUTS: 
‘ 99 ; none 
1 ! IMPLICIT OUTPUTS: 
1§ ; none 
13 ROUTINE VALUE: 
7 2 none 
18 $ 
19 : 
0 ! 
1 ' 
; ! 
H 
4 
8 
0 
5 


DRIP AR WN —OODNOUNE WN OOo w 


$ 
! Verify proper format 


ce ce ce ce ee ee ee ee a ee ee ee ee ee cee ce ee ee ed ee ed ed ed ed 


Sek tak ek ed 
Mew 


See Se Se Ge Se Se Ge Fe Se Ge Se Se Se Se Ge Ge Se Ge Fe Ge Fe Ge Ge Se Ge Ge Se Se Ge Ge Se Se Se Se Se Ge Se Se Se Se Se Se Se Se Se Se Bete Se Sete Se Sees teas 


Cd ond 


\ 
\ 


¥06~000 remove proxy = remove a proxy record b-Jonc1gts 15; 64: % UA BUgSRe UAFMAl Pitre Page 149 


3; 2169 4 

3 1%9 4 it not remote_parse (node_ptr, node_len, remuser_ptr, remuser_len) 
: \y rt then return; 

: $it6 ¢ 

; 17 ; Copy into appropriate fields 

: 178 : ch$cop: f. node_len, .node_ptr, ' ', naf$s_ node « netbuf(naf$t_node]); 
: 1? : ch$copy (.remuSer len, -remuser_ptr, » naf$s_remuser, netbuf nafst _remuser)); 
3 4] § ¢ nafrablrab$l_rop) = rabSm_rlk; 

3 if 3 success = get_proxy_record (); 

: 21 60 2! 

: it ot ; Delete the record 

: 136 8g it -success 

3; 21 64 hen 

3; 2188 65 begin 

: a 26 4 sy rashes (S$delete (rab = nafrab)) 

> 2191 68 ; LIBSSIGNAL(UAF$_REMERR, 0, .rmserr) 

86 Sf tag 

; aoe 

3 2194 71 4 ecurity_audit (nsa$k cgctd tuaf_del); 

: 3198 me 4 188s IGHALCUAFS_PREMMSG); nt ~° 

: 2197 74 es 

3; 2198 75 

: 139 ; 6 $*| IBSSIGNAL(UAFS _REMERR) ; 

: 2201 78 te f_modifi : 

: 201 ay }- 4 ua modified = true; 


-ENTRY REMOVE PROXY, Save R2,R3,R4,R5,R6,R7,R8 2190 
MOVL MUAFS$_REMERR, R 


MOVAB LIBSSTGNAL , a7 
RMSERR, R6 


BLBS NE TUAF ERIS IS. i$ 
PUSHL al $_RAFD 
cots tTBSS1GNAL 


3337 


Bae Se Ge Be Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Fe Ge Se Ge Se Se Se Se Se Ge Ge Se Ge Se Se Se Ge Oe Ge Ge Se Ge Se Se Se Ge Se Ge Oe Oe Oe Oe os Os Oe Oe Oe Oe Os Bs es 


ound RS ses - 
000000006 00 CALLS io CLISGET_VALUE 
E PUSHL P 2247 
AE PUSHAB REMUSER PTR 
AE PUSHAB NODE_LER 
1 AE PUSHAB NODE PTR 
FAI7 = CF 4 CALLS #4, REMOTE PARSE 
63 0 BLBC RO, 6 


Ps 


NaN ~J9n-1985 17: §¢: 9 AX-11 Oi ieee V4.0-742 Paget! 


remove proxy = remove a proxy record “Oct-19 UAF. BUGSRCS uA MAIN.B32;1 

20 20 OC BE ost MOVCS NODE_LEN, @NODE_PTR, #32, #32, NETBUF : 2253 i 
20 20 04 BE - mOVCS REMUSER sf @REMUSER_PTR, #32, #32, 3 2254 
8 00088005 VL wBc288, FRAB+4 : 225 i 
noone v CALLS 1ROxT. RECORD + 225 : 
0634 PUSHAB Sutc#ss : 5566 
000000006 00 CALLS #1, SYSSDELETE : ; 
MOVL RO, RMSERR : ; 
BLBS : 3 
PUSHL RMSERR 3 2268 j 
CLRL. = (SP) : ; 
PUSHL Rg : 3 
67 CALLS #3, LIBSSIGNAL : i 
00020003 PUSHL #131075 + 2271 : 
00000000v CALLS #1 SECURITY AUDIT : : 
000000006 BUSHL #UAFS_PREMMSG $ 2272 : 
PUSHL RB + 2276 : 
67 CALLS a, LIBSSIGNA ; ; 

00000000" 00 nove » NETUAF ROD IF LED 3 $78 


; Routine Size. 175 bytes, Routine Base: SCODES + OBEB 


Kk 10 
UAFMAIN =Jan-1985 17:24:07 AX-11 Bliss-32 V 
y06~000 rename_uaf - rename user record eet H 15:84:% UAF .BUGSRCJUAFMA 
$ O 1 Zsbttl ‘rename_uaf - rename user record’ 


w 
O@ 
uw 


60 i Modify the rights data base if one exists 


; 5 1 1 Lobal routine rvname_uaf : novalue = 

3 egin 

; : 'e¢ 

. ' 

; 10 i FUNCTIONAL DESCRIPTION: 

: ig 8 2 Effect a user authorization record rename, by 
: Fe 4 performing a COPY and a REMOVE operation. 

: 2215 91 2 | INPUTS: 

: 1g 35 : 

: i 9 none 

: 2019 95 2 | IMPLICIT INPUTS: 

; 0 38 ! 

3 1 ; } none 

; § 3 | QUTPUTS: 

: 5 01 none 

; ; 08 { IMPLICIT OUTPUTS: 

> 2229 5 none 

> 2231 oy i SIDE EFFECTS: 

: : 09 i A user authorization record is copied with a newname; the 
3 10 : original record is then deleted. 

3 5 11 ! This routine also causes one of any NETUAF entries for the 
: \¢ local user which is to be renamed. 

: 14 2 ine 

3 9 15 

; ve 16 vaf$gl_ctlmskCuat$v_rename] = true; 

; ; 8 Copy the new authorization record 

3 2264 0 3 if (copy_uaf () 

: 5525 iin 

: 7 § , begin 

; ro : : Remove the old authorization record 

3 2250 "  pemove_uaf 0; 

; 31 $ LIBSSIGNAL (UAFS_RENMSG) ; 

: 5 i Because passwords are folded in with the username, passwords for 
3 3¢ $ ; RENAREd records will no longer work--warn the user 
> 225 "$f .pwd_fle 

: 3 then L18SS1 NAL (UAFS_DEF PWD) ; 


4.0- 
IN.B 


74 
32 


2 
31 


vans 


BISSSSSSSSSSSSIBISSSISISSaSaeo 


vv 


rename 


OoOoo~ 


apie tt i Ne ie tthe a ta Hy Be ai one ane 


uaf - rename user record 


Pedenct9Hs 12:36:07 YAKetd BLinges2 ve.0-742. 


if i ten | ( sd_modify_identifier ) and 


begin 
local 
status : ong. 
old_name_buff : aoe or CkguSs_name, byte]. 
old_name_desc : statdesc : 
new_name_desc : Statdesc ; 


old_name ~desc Length), 
old_name_desc petntecs 
new_name_desc{ length] -newuserlen ; 
new_name_desc(pointer) = newusername ; 


uaf$find_uic ‘) ; ! Build Identifier from the recbuf 


ofa-nane sult ; 


' 
: Find the ascii name 


sont = Sidtoasc ( id ident 
nealen = = old wnane =Gescllongthd. 
nambuf = old_name_desc ) ; 


if not .status 
then LIBSSIGNAL (UAFS_R FYERRU, 2, 
- identCuic$v_group 
-identluic$v oreie? 4, . status) 
else 
begin 
status = Smod_ident ( id ident, 
new_name = new _name_desc ) ; 
if not .statu 
else LIBSSIGNAL(UAFS. ROBADFYERR, 1, old_name_desc, .status) 
ibis ified = 
$_RDBMDF YRS, 1, old_name_desc); 
end ; : 
end ; 


' 
: Reset flags 


rename_ph2 = fals 
uaf$gi- Ptiasktuatsy. rename) = false; 


end; 


Page 8) 


ae a 


vant 


#10 
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rename_uaf - rename user record et 1 15:84:96 (uaF -BuGsRe UAFMAIN BSoe1 oe 85 
007¢ 00 ENTRY RE UAF, Save R2,R3,R4,R5,R6 : 2281 
¢ VAB WUSERLEN, R6 ; 
G \ MOVAB IDENT, R : 
4 y MOVAB UAFSGL_CTLMSK, R4 : 
3 006 MOV Ligssi , RS ; 
c SUBL2 848, : 
64 1 BISB2 #1, UAFSGL_CTLMSK : 331 
FAO8 gf Fg CALLS ° SOPY LUAF 3 232 
reset ES PES 90° REMOVE _UAF ; 
000000006 8F 0D PUSHL auAES ENAS : $338 
63 1 FB CALLS @ LTB SIGNAL ; 
O64 4 € BiLBC Pwo_FL : 3338 
000000006 &F ODD PUSHL Fs 3 23 
43 1 £B CALLS #1, LTBSSIGNAL ; 
00000000' GF 1$: PUSHAB SD_MODIFY_ IDENTIFIER : 2338 
000000006 00 1 Fe CALLS #17 CLISPRESENT ; 
6 0 €9 00055 28: 6L6C R ; 
C 70 AG EO BLBC RDG EXISTS. 5 ; 2339 
08 AE 010€0000 BF 00 MOV. #17894°20, OLD_NAME_DESC + 2345 
C AE DS CLAL e. bESC +E : 
6E 010E0000 8F 00 MOVL #17694720, NEW_NAME_DESC 3: 2346 
06 AE 04 CLAL W_NAME_DESC+% ; 
08 AE 20 80 Vd #327 OLD“NAME_DESC : 2348 
OC AE 10 AE MOVAB OLD BUFF OLD_NAME_DESC+4 > 2349 
6c 66 80 MOVW NEWOSERLEN, NéW NAME DESC + 2350 
04 AE 06 Ab MOVAB NE WUSERNAME NEQ_NAME_DESC +4 > 2351 
000000006 60 90 fB CALLS UAF $F IND_UIC : 2353 
— 7¢ CLRG 20s =( §P) : 2360 
7E D6 CLRL = (SP) ; 
16 AE OOF PUSHAB OLD_NAME_DESC : 
18 AE 9F PUSHAB OLD-NAME DESC ; 
65 0D PUSHL  IDERT : 
000000006 06 F CALLS a6, SYSSIDTOASC : 
52 D MOVL RO. STATUS F 
18 E BLBS STATUS, 4$ : 3361 
D PUSHL STATUS ; 
7E C MOVZWL IDENT, =(SP) : 
7E 02 aS 0€ EF EXTZV . #16, IDENT#2, -(SP) ; 3363 
DD PUSHL @# : 2362 
000000006 8F DD PUSHL SuAFS RDBMDF YERRU : 
3 5 Ff 5 CALLS #5, LTBSSIGNAL : 
A 1 8 3S: BRB 6$ : 
E Dé as: CLRL = ( SP) > 2369 
06 AE OF PUSHAB NEW_NAME_DESC : 
Cs Ob sus Tpeat 
000000006 Q 5 F CALLS ge SYSSMOD_IDENT ; 
D MOVL RO. STAT ; 
1 b BLBS STATUS, ; 3 71 
D PUSHL STATUS : 2872 
0c AE F PUSHAB OL D_NAME DESC ; 
DD PUSHL @ : 
000000006 8F ODD PUSHL  #UAFS ROBADE YERR : 
3 4, 8 CALLS #4, LTBSSIGNAL 3 
é 1 BRB $ ; 
78 Ab 01 90 5$: MOVE #1, -RIGHTSLIST_MODIFIED > 2375 


UAF MAIN G-Jan-1985 1 5 17: Ba 07 AX-11 Bliss-32 V4.0-762 Page 85 
v04-000 rename_uaf = rename user record -0ct-1984 13: 0 UAF .BUGSRC JUAFMAIN.B32; 1 


08 AE OF SpoES PUSHAB OLD_NAME_DESC ; 2376 
01 DD OOOE PUSHL #1 : 
000000006 8F oD 43 | PUSHL A wba ct 177A Hg 3 
3 03 FB OOOF CALLS SIGNAL : 
D8 Ab 94 QOOFS 6S: CLRB RENARE He :2 
64 01 8A 000F7 B1CB2 M UAFSGL —CTLMSK 3 @ 
04 OOOFA RET 


; Routine Size: 251 bytes, Routine Base: S$CODE$S + OC9A 


Pe ad 
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v04-000 adjust_proxy = implicitly remove/update proxy r Bean 198, 13: ‘Bt: :10 (UAF -BUGSREIUAFMAIN B32 Bg3e 1 . 8 


3 2314 89 1 Xsbttl ‘adjust_proxy = implicitly remove/update proxy record’ 

3 3 15 330 1 global routes” “idjust “proxy (remove) : novalue # che 

3 18 3 egin 

3 § 1 3 

; 2518 9 1++ 

: § 19 94 i 

3 $350 + FUNCTIONAL DESCRIPTION: 

3 $356 2397 i This routine performs the operations implicitly indicated by 
: 232 2398 i REMOVE or RENAME operations on SYSUAF.DAT. If a SYSUAF.DAT 
: 2324 2399 i record is agg per ofty corresponding NETUAF. DAT ents ves must 
$ $352 400 i also be deleted. AF DAT record is renamed, hen any 
3 $3 tt corresponding NeTUAR. Bat entries must be updated. 

3 $35 $i08 i INPUTS: 

; 263 2404 § i 

; 23350 2405 i remove - a flag which indicates that the NETUAF.DAT record 
3 $3) $708 i should be removed. If false, then the record 

: 53 ; 407 ' should be updated. 

: 233 2408 i 

3: 2334 2409 i OUTPUTS: 

: 2335 soi? i 

; $338 411 i none 

3 2337 seig ' 

: 2338 241 2 i IMPLICIT INPUTS: 

3; 2339 2414 2! 

; 2340 2415 2: olduserlen = the old username length for a RENAME 

3 2341 2416 2! oldusername - the old username str ng for a RENAME 

; tak 2417 2: TOKENPTR = the new usernane for RENA E. the removed username for REMOVE 
3; 234 2418 2! TOKENLEN = Length Length ' six 
3 2344 2419 2 | 

: 2345 2420 2 | IMPLICIT OUTPUTS: 

3: 2346 $e) § i 

3 2347 4 g i none 

3 te 24 2 

3 2349 2426 2! SIDE EFFECTS: 

; 2350 2425 i 

3 Ste) $058 ¥ A record is removed/updated in NETUAF.DAT 

; 328 428 ie 

3: 2354 429 

3 $22 430 local ; 

: 2356 431 modified: initial(false), 

; 2357 245¢ status; 

; 2358 438 2 

: 59 454 7 ! 

3 435 ' Set access to sequential because we need to check for 

3 36 : multiple entries 

: : 438 nafrabCrab$l -rop} = rabSm_rlk; ! Lock records for writing 
3 2364 439 nafrablrab$b_rac) = reese. eq; 

3 5 ri Srewind (rab-= nafrab) 

3 Ge : 

: 2e8 $ ! uncit €or... 

: 2369 be é i 

; 2370 445 while status = get_proxy_record () 


<Cc 


11 
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y04000 adjust_proxy = implicitly remove/update proxy r ~Oet=19 4 13: 61:90 UAF .BUGSR SRCIU AFMAIN.B32;1 att V 
H G& do H 
: ty begin ‘ 
; 4G local ° 
3 4G locuser_len, . 
; 450 blank_ptr; : 
: i323 ; 
; : § Find end of user name. : 
3 455 ‘ 
; oe i If not found in 12 characters, it must be the full 12 : 
: : 5 characters in Length ‘ 
: 459 if ch$fail (blank_ptr = ch$find_ch (naf$s, Localuser, ; 
3 me 44 netbu*(naf$t_localuser], ' ')) ; 
; ae  Lecuser. len = naf$s_localuser ; 
: se . 
3 rec! lLocuser_len = .blank_ptr - netbuf(naf$t_localuser); ‘ 
; 466 : ; ‘ 
; reef : If this is a record to be removed, delete it : 
: 2469 4 - remove : 
; 2470 en : 
; 471 4&4 begin : 
3 472 4 if .tokenlen eql .locuser_len ° 
3 473 4 and ch$eql (. tokenlen, -tokenptr, .locuser_len, netbuf(naf$t_localuser]) ‘ 
: 474 & wa ® ‘ 
: 475 2 ne fae : 
3 47 netuaf_modified = true; ° 
3 477 § Sdeleté (rab = nafrab); ‘ 
: 478 5 security. audit (nsaSk _recid. netuaf_del); : 
; rh ? ‘ end; ‘ 
: en e 
; th 4! : 
3 482 4 ! otherwise, change the locelusernene field to reflect the : 
; 2408 rt 4 4 ! new username in SYSUAF.DAT ‘ 
: 2409 & 4! ‘ 
3 2410 485 3 else : 
3 go} 4 4 begin ‘ 
3 re 4 & pei tied = true; ; 
: 261 4 4 if meeer lan ¢ eg! - locuser_ len ‘ 
3 2414 489 4 and ch$eq! (.olduserlen, oldusername : 
> 2615 490 4 -locuser_len, netbuf(naf$t_localuser)) ; 
3 ret 491 4 then ‘ 
3; 241 ud bogie ‘ 
: 2618 49 copy (uaf$s_uscrname, recbuf(Cuaf$t_username),' ', : 
3: 2619 494 naf$s_ esol uter netbuf(naf$t_ localuserd); : 
: 24 495 Supdate (rab = fates : 
i 2621 | netuaf modified = : 
3 26 4 £5 security audit (nsaske “recid -netuaf_mod, oldusername) ; : 
3 . ? £38 4 Pe. . 
i 2625 5 : 
; 24 $ ; 1 : 
3; 24 02 if .modified then . 


vents 


-JjJan-1985 17:26: AX-11 Bliss-32 V4.0-742 Pa 
adjust_proxy - implicitly remove/update proxy r bean. 19 15: 83 % UAF .BUGSRC JUAFMAIN.B32; 1 oe 8 


3 LIBSSIGNAL(UAF$_ZZPRACREN, 2, .olduserlen, oldusername); 
! 
Return to keyed access 


o8 nafrablrab$b_rac] = rabSc_key: 
9 end; 


~EXTRN SYSSREWIND 


07FC 00000 ENTRY ADJUST. PROXY, Save R2.R3,R4,R5,R6,R7,RB,R9,-; 2390 
5a 00000 v 9E MOVAB SECURITY_AUDIT, R10 : 
9 00000 o 9 MOVAB OLDUSERNAME, RO ; 
3 80 0000' of MOVAB NE TBUF 64, RB : 
6 04 CLRL ryt obs : 2391 
6C a8 000800 F DO MOVL Boke gNAFRABS4 : 2438 
0086 c8 4 CLRB Ages + 2439 
68 AS OF PUSHAB + 2440 
000000006 00 gi FB CALLS mes SySSREW WIND : 
00000000v F CALLS 40, GET_PROXY_RECORD + 2645 
5 2 D MOVL st mb 3 
03 8 BLBS eraTe ; 
, 0081 31 BRW $ : 
68 z0 0 3a LOCC ——sa#’32, 2. NE TBUF +64 > 2460 
é 12 BNEQ = 38 : 
D4 CLAL sR 3 
1D TSTL § BLANK_PTR F 
.% BNEQ 4 3 
50 9 D MOVL #32, LOCUSER_LEN + 2462 
11 BRB s 
52 68 ROVAR je reuse +64, R2 + 2664 
50 1 C SUBL3 RZ, BLANK PTR, LOCUSER_LEN ; 
0 04 ac : BLBC = REMOV VE. «8p t 2472 
51 FAIC ¢ C MOVZWL TOKEN ; 
50 1 01 CMPL MEN, Rt _LEN : 
CA i BNEQ =:‘'1$ ; 
52 FA20 c8 p MOVL TOKENPTR a > 2673 
50 00 4 31 D CMPCS , (R2), LOCUSER_LEN, NETBUF +64 : 
BD 12 BNEQ =-'1$ ; 
Fe AD 1 p MOVL #1, NETUAF_MODIFIED ; 347 
couswees 00 MF BMS AS soecere oe 
vvv : 
00020003 BF DD PUSHL a t1078 > 2678 
6a 1 Fe CALLS #1, SECURITY_AUDIT ; 
| BRB is + 2469 
6 01 OD MOVL : 2487 
1 FC OA ROVL qh Pat > 26 
0 i p} ¢ CAP LOCUSER_LEN 
50 00 69 ; 20 CMPCS , OLDUSERNAME, #0, LOCUSER_LEN, NETBUF+64 ; 2490 
1 BNEQ 1 3 
ra FAGO CB 0 if mOVC3 i, RECBUF +4, NETBUF +64 > 2494 


; Routine Size: 
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NAFRAB 
#1, SYSSUPDATE 
#1. NETUAF_MODIFIED 


#196611 
#2, SECURITY _AUDIT 


DIFIED, 9$ 
OL DUSERLEN 


#UAFS ZZPRACREN 
#4, LTBSSIGNAL 
#1, NAFRAB+30 
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> 24 10 1 &sbttl ‘default_uaf - change default record’ 

3; 24 1 global routine defeult_uaf : novalue = 

: ig g best 

ie iS gis 

: 44 1 i FUNCTIONAL D: SCRIPTION: 

: tte 319 ! Change a default value in the default record. 

: 44 0 | INPUTS: 

: 468 2 é none 

: 430 3 4 { IMPLICIT INPUTS: 

: $8 $56 $i none 

> 2654 528 2 | OUTPUTS: 

3; 2455 529 ' 

: $228 ay Si en 

> 2458 5 é i IMPLICIT OUTPUTS: 

3; 2459 5 ! 

3 rec 5 : ; none 

> 246 2 i ROUTINE VALUE: 

3; 246 5 ! 

3 rc é ; none 

> 2666 540 2 | SIDE EFFECTS: 

3; 2467 541 ! 

: 2468 246 ! none 

3; 2669 54 tee 

3; 2670 544 

BR GB, 

; 47 3¢ i Locate default record and load it into RECBUF 

; rth 3 if not already there (via an indirect MODIFY DEFAULT) 
: 267 550 

3 <i 32) if not .mod_default 

; en 

: 2479 338 begin 

; 2480 54 if not locate_user (.defuser<0,8>, defuser+1, true) 
: " 1 22? —_ +o 

: 26 238 4 L1BSSIGNAL (UAFS_DEFERR, 0, .rmserr); 

: 26 238 & return; 

3: 2485 5 : 

3 : 260 end; 

: 26 26¢ i The encrypted password field of the DEFAULT record can not be propagated 
: m4 44 6 ! to qnother user, because the encryption a petite Fokes the user name as 
3 rt $ } an input. The user is merely warned that this qualifier has no effect. 
: 2492 66 2 
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S3SSSSS33S 


S22 


oe 


bat tet te eeet PN oO 
wn Car 2S GOI OU UO Dee 


POPPA AAAI 


Abhi Abedh chbedb hh Ab Abe hh* Ab dd 
LESREASLESE 


ed ed ed od ed 
WIN — SO CONOUSWN—O 


rrrnn— 

VIM 
Ss 
oD 


Sexes 


RINNE BBE PEE PWIA 
e 


o 
o 
w 


PPAAAAAMAAAMUIUT 


3 


pwd_flag = true; 
1 
; Update values supplied and exit if errors. 


if update_record () 
then 


begin 
if not .pwd_ fla 
then LIBSSIGNAL CUAFS_NODEF PWD) ; 
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Now write the modified record back into the DEFAULT_RECORD buffer. 


default_size = 
ch$move  ( 


uafrabCrab$w_rsz]; 


' 

Update the default record in the file. 

; ifn not rmsok (S$update (rab = uafrab)) 
~L1BSSIGNAL (UAFS _MDFYERR, 0, 


“begin flag = true 


security_ audit (nsaSk _recid_sysuaf_mod); 
if not .mod_default 


then 
LIBSS1GNAL (UAF $_MDF YMSG) 
se 
mod_default = false; 


end; 
end 


-rmserr) 


lse 
$Srelease (rab = uafrab); 
end; 


oOo 
= 
nn" 
oO 


28x 
Ss 
FSLSSLSLRAR 


(.defauit size, recbuf, default record); 


Note that file has changed. 


! unlock the record 


ovis’ tit DEF AULT UA UAF, age’ R2,R3,R4,R5,R6,R7,RB 
MOVAB ht R? 

Blas. 1s 

PUSHL mic 

PUSHAB DEFUSER+1 

mOVZBL D FUSER -(SP) 

CALLS gcAre_ USER 

BLBS 

PUSHL it 

CLRL. 0s = (SP) 


wi 


mr 


uw 
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000000006 
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; Routine Size: 184 bytes, Routine Base: 
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BUAFS DEFERR 
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#0, 
R 

FLAG, 2$ 
Pub FL 6 2 


#1, LTB$S 
UAFRAB+ 


t 
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AX-11 BLi 
UAF .BUG 


cj 


PWD _FLAG 
DATE _RECORD 


GNAL 
DEFAULT 


I 
4 
DEFAULT SIZE, RECBO 


RMSERR 
=(5P) 


FS_MDFYERR 


#1, SYSSUPDATE 
n) RMSERR 


#3, LIBSSIGNAL 
#1, MODIFY_FLAG 
#196610 

#1, SECURITY_AUDIT 


MOD_ DEFAULT 
#UAFS 


MSG 


5$ 


MDFY 
#1, LIBSSIGNAL 


MOD_DEF AULT 


UAF RAB 
#1, SYSSRELEASE 


$1Z 
F, 


E 
DEF AULT_RECORD 
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7 } Zsbttl hist proxy - List proxy entries in NETUAF.LIS' 
Jas routine List_proxy : novalue = 


wr 
SSF | 
Ooo 


‘ 

: Set action routine and rab pointer 
oitd netuser = true; 

match_tokenlen = A's 

match. token = Ic‘ 


tr = nistrab; 
act on=d splay. proxy; 


eader 
aes eo “vend 2 rab$m_rrl or rab$a_nik; 
LIBSSIGNAL (UAFS$_LSTMSG1); 


w 


OB NA MNES OOOO UE WIN O 


ss 


: 61 

3 H hed 

; 49 613 FUNCTIONAL DESCRIPTION: 

: ri} 615 i This routine produces a Listing of the entire NETUAF.DAT file 
3; 254 oi§ i in NETUAF.LIS. 

3 4 61 i 

3 45 $18 i INPUTS: 

3 1 i 

: a? » none 

; rk 6 ; i OUTPUTS: 

; 20 $ & none 

; 38 625 2 | 

3; 255 6 § i SIDE EFFECTS: 

: $2ee ess | A Listing file is produced 

3 stin e is produce 

: 2556 699 5 i ° eo 

3; 255 6 ie 

3; 2558 631 

3; 2559 6 § local 

3 2560 6 action; 

3: 2561 ° : ; 

; 568 6 Make sure NETUAF.DAT exists 

; ee 6 iy net .netuaf_exists 

; ¢ % then return CIGSS1GNAL(UAFS _NAFDNE) ; 

: en 64 ' 

: 299 v Set up the Listing file FAB and connect RAB 
: 2571 64 alstfablfabsv _dlt) = false; 

3 2 64 if rmsbad (S$create (fab = nistfab)) 

3 4 then return LIBSSIGNAL(UAFS_LSTERR, 0, .rmserr); 
: 64 if rmsbad (S$connect (rab = nistrab)) 

3 ¢: then return LIBSSIGNAL(UAFS_LSTERR, 0, .rmserr); 
; re 

: i 

: 

; 6 

3 e3 

; re 


S33 
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' 
: LOCATE _PROXY will call the action routine for each proxy record 


‘- 


if rmsbad (locate_proxy (.action)) 
then 


eS 235 3 


EWI O 


begin 
Hd -rmserr eql rms$_rnf 
en 
LIBSSICNAL (UAF$_BADSPC) 
else 
ad LIBSSIGNAL(UAFS_LSTERR, 0, .rmserr); 


np, ee J 


nO 


e 
else 
LIBSSIGNAL (UAF$_NETLSTMSG); 


FPOAAAAAAAO 


so 


' 
Disconnect RAB and close FAB 


$disconnect (rab = nistrad); 
Sclose (fab = nistfab); 


1 end; 


See SR eRe S SESS SP oes 


— 
Nu—o 


Can 


-EXTRN SYSSDISCONNECT, SYSSCLOSE 
LIST aryl Save R2,R3,R4,R5,R6 


LSTERR 

STGNAL, RS 
TRAB, R4 
R3 


S 
~ 
ao 
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G 


rin bah 

#1, LTBSSIGNAL 

#128, NLSTFAB+S 

#1, SYSSCREATE 

RO, RMSERR 

RO, 2 

R4 

#1, SYSSCONNECT 

R » RMSERR 
M3 

-(SP 

is 

#3, LIBSSIGNAL 

#1, WILD_NETUSER 

#1, MATCR_TOKENLEN 

#42, MATCR_TOKEN 


‘ R 
g SPLAY PROXY , ACTION 
FiOcb sane RAF RAB+4 


$ 
RR 
E ) 


a8 


1 
1 
a 
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DONA UE 


| 00000000Vv 
3 00100008 8&F 


be 

9E 

9 

cs 
i 

A aes 

; + 

06 

E 

DD 

fF 

of 

E 

i) ) 

04 

re 

04 Of 
0 
0 


a 
A 
A 
A 
5 
C 
C 
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List_uaf = List file routine 


| ses sat 
r 
ust 


UAFMAIN.632;1 


uaf - List file routine’ 


tee 


FUNCTIONAL DESCRIPTION: 
Display the specified users in a file named 'SYSUAF.LIS'. 


IMPLICIT INPUTS: 


IMPLICIT OUTPUTS: 


ROUTINE VALUE: 


SIDE EFFECTS: 


~ 
° 
a 
& 
~ 


Obtain the user specification. 


This sets wildcard flags and initializes 
the appropriate key in RECBUF. 


if not parse_wild (sd_token!,true) 
then return; 


! Null string defaults to * 


This determines which display should be used. 


i Obtain qualifiers. 


full_flag = false: 
brie?_fisg = true; 


? cliSpresent (sd_full) or (not cliSpresent (sd_brief)) 
then 


begin 
or ef_flag = false; 
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end; 
' 


Create the Listing file. 


ist fabl fabsy alt) = false; ! initialize DLT bit 
if rmsbad (Screate (fab = ist 
then return LIBSSIGNAL (UAFS. L , O, .rmserr); 
$s 
L 


if rmsbad (Sconnect (rab = | 
then return CBS SIGNAL CUAFS 


0, .rmserr); 
' 


Request a header record for the file and aim RABPTR at our RAB. 


header _flag = true; 

rabptr = A ys 

found_ma false; 

vatrabcrabsi. _top) = rab$m_rrl or rab$m_nik; 

: Flag the List operation for the rights data base routines . 
rdb_list_flag = true ; 

! 


; Choose the appropriate display. 


action = display_brief; 
if .full_fla 

then actTon = display_full; 

LIBSSIGNAL (UAFS$_LSTMSG1); ! announce starting 


if rmsbad (wild_user (.action)) 
then 


begin 
7 -rmserr eql rmas$_rnf 
en 
ag ESSE UNE -BADSPC) 


apts ths ee LSTERR, 0, .rmserr); 
Usttab fab$Sv_dit]) = true; ‘ press delete button 


VF wnN— 


else 
*| 1BSSIGNAL (UAFS._ LSTMSG2) ; 


Sdisconnect (rab = istrab); 
eeleee (fab = istfab); 
en 
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y06r000 List_uaf - List file routine eH 15:64:90 YUAF BUGSRESUAF MAIN BSo41 9 18) 
o1F¢ -ENTRY LIST_UAF, Save R2,R3,R4,R5,R6,R7,RB 3 2687 
8 G 8F MOVL #UAFS_LSTERR, ; 
G : MOVAB CLISPRESENT R7 : 
: 19 MOVAB $D_TOKENT, R6 : 
G — 0001 MOVAB LIBSSIGNAL, RS : 
4 E i MOVAB RMSERR, R4 : 
3 00 ' E v LSTRAB, R3 : 
DD ¢ PUSHL @# : 2729 
DD PUSHL R : 
000000006 00 Fe CALLS #2, PARSE_WILD : 
1 i i BLBS RO, 1$ : 
FEOS §=¢3 01 7D 1$: MOVG #1, BRIEF _FLAG : 736 
2c Ab OF 04 PUSHAB $D_FULL : 2738 
67 : re 4 CALLS #17 CLISPRESENT : 
09 0 E 4g BLBS 0. F 
20 Abd SF 0004 PUSHAB SD_BRIEF : 
67 or re O4c CALLS #17 CLISPRESENT : 
09 Q E GF BLBS F 
FEO8 C3 04 00052 2$: CLRL BRIEF FLAG : 2741 
FEOC «so¢ oi DO 0056 MOVL #1, FOLL_FLAG : 3742 
BS A 80 8F 8A 058 3$: BICB2 #108, LSTFAB+S + 2749 
BO Ad OF 9060 PUSHAB LSTF : 2750 
000000006 00 gi FB 0006 CALLS #1, SYSSCREATE ; 
64 20 00 O06A nov RO, RMSERR : 
38 DD 809 PUSHL ‘ + 2753 
000000006 00 01 FB 0007 CALLS #1, SYSSCONNECT ; 
oA 20 EB ore ees RO see 
64 dD O07 4$: PUSHL RMSERR + 2754 
D4 00081 CLRL (SP) ; 
58 DD 0085 PUSHL Re ; 
65 03 FB 00085 CALLS #3, LIBSSIGNAL ; 
04 bas RET 3 
FEIO «C3 01 20 89 5$: VL. #1, HEADER_FLAG : 2760 
80 Ad 63 9 O08 MOVAB LSTRAB, RASPTR : 2761 
06c8 C4 04 0009 CLRL OF ND MATCH : 276 
OSF4 C4 00100008 F 20 0096 MOVL #1048584, UAFRAB+4 : 276 
000000006 1 0 OF MOVE #1, RDB_LIST_FLAG : 2757 
52 00000000v 9 +3 Ab MOVAB ODISPLAY“BRIEF, ACTION > 2773 
FEOC f 0 AD BLBC FULL FLAG, : 2774 
52 00000 Gy 0 SE 082 MOVAB DISSCAY FULL, ACTION > 2775 
00000006 8F DD 00089 6$: PUSHL #UA‘$_LSTMSGI : 2777 
5 1 FB 000BF CALLS #1, LIBSSIGNAL : 
; DD 000C2 PUSHL : 2779 
00000000v 00 | F C4 CALLS #1, WILD_USER : 
i 6 D cB ROVE RO, RMSERR ; 
0 6 D D MOVL RMSERR, RO : 2782 
00018282 BF 9 p} D4 cHPL R , #98994 : 
000000006 8F DD Dp - PYSHL HUAFS BADSPC : 2784 
5 ! FB : CALLS a. LTB$SIGNAL : 
0 oD 3 7$: PUSHL RO : 2786 
7E D4 OOOEA CLRL. = = ( SP) ; 


UAF MAIN 


v04-000 List_uaf = List file routine 


§ DD 
63 F 
BS A 80 f ; 

000000006 8F DD 

5 1 FB 

3 0D 

000000006 00 01 FB 
BD Ad OF 

000000006 00 01 fe 


; Routine Size: 277 bytes, Routine Base: SCODES + OFFD 
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PUSHL Re 

CALL #3, LIBSSIGNA 
BI36 #} 8, LSTFAB+ 

PUSHL ae LSTMSG2 
CALLS LTB$SIGNAL 
PUSHL 

CALLS a SYSSDISCONNECT 
PUSHAB LSTFA 

CALLS #1, SYSSCLOSE 
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“Oct-19 


1 Esbttl ‘show_user_uaf - display user record’ 


lobal routine show_user_uaf : novalue = 
egin 


‘ee 
FUNCTIONAL DESCRIPTION: 
Display the specified users on SYSSOUTPUT. 
INPUTS: 
none 
IMPLICIT INPUTS: 
none 
OUTPUTS: 
none 
IMPLICIT OUTPUTS: 
none 
ROUTINE VALUE: 
none 
SIDE EFFECTS: 
none 


local ; 
action; 
' 


i Obtain the user specification. This sets wildcard flags and initializes 
' the appropriate key in RECBUF. 


if not parse_wild (sd_token!, false) ! Null string is disallowed. 
then return; 


Obtain qualifiers. This determines which display should be used. 


full_flag = true; 
brie? fisg = false; 


eT cli$present (sd_brief) or (not cliSpresent (sd_full)) 
then 
begin 


brief_flag = true; 
full_Tlag = false; 


2 
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show_user_uaf - display user record 
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en 
1 end; 
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end; 
: 
} Request a header record for the file and aim RABPTR at our RAB. 


! 
Flag the show operation for the rights data base routines . 


rdb_list_flag = false ; 
i 
; Choose the appropriate display. 


action = display. full; 
if .brief_fla 
then act ién = display_brief; 


7S rmsbad (wild_user (.action)) 


“begin 
Z runert eql rms$_rnf 
_ LIBSSIGNAL (UAFS _BADSPC) 
4 **| IBSSIGNAL(UAFS_SHOW_CRR, 0, .rmserr); 


3 


MOVAB LIB$SIG R6 
MOVAB CLISPRESENT RS 
MOVAB SD TOKEN’, R4 
VAB BRIEF FLAG. R3 
MOVAB = RMSERR, 
g CLRL ss = (SP) 
4 PUSHL RG 
‘ CALLS #2, PARSE_WILD 
BLSC , 5$ 
1 MOVL FULL_FLAG 
63 CLRL = BRIEF _FLAG 
Ad PUSHAB SD_BRIEF 
gi CALLS #17 CLISPRESENT 
0 BLBS =: RO 
ad PUSHAB $D_FULL 
We o> CLISPRESENT 


<cC 


ably SHOW USER _UAF, Save R2,R3,R4,R5,R6 
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No 


1 Zsbttl ‘show_proxy - display proxy record at terminal’ 
lobal routine show_proxy : novalue = 
egin 


| FUNCTIONAL DESCRIPTION: 


This routine will display a specific proxy record or 
will display all proxy entries to the user terminal. 


1 

4 

i 

' 

i 

; INPUTS: 
: none 
UUTPUTS: 

; none 

; IMPLICIT INPUTS: 
TOKENLEN, TOKENPTR 
IMPLICIT OUTPUTS: 

none 

; SIDE EFFECTS: 

: none 

! 


counter, 
success; 


' 
: Make sure that NETUAF.DAT exists 


if not .netuat_exists 
then return LIBSSIGNAL (UAFS_NAFDNE) ; 


' 
: Retrieve token 


cli$get_value (sd_tokenl, tokendsc); 
header_flag = true; 


i wildcard spec? 


i 


AX-11 Bliss-32 V4.0-742 
UAF .BUGSRC JUAFMAIN.B32; 1 


rom 8 


show proxy - display proxy record at terminal 0c t-1984 1 


SRE RARMARNANANAEE REE E 


9 


12 


' 

if ch$find_ch (.tokenlen, .tokenptr, %c'%") neq 

or ch$find_ch (.tokenlen, .tokenptr, %c't') neq 
en 


begin 

wild netuser = true; 

match_tokenlen = .tokenlen; 

ch$move (.tokenlen, .tokenptr, match_token); 
en 


' 
} Otherwise, just display a single entry 


else 
begin 
wild_netuser = false; 
if not remote_parse (node_ptr, node_len, remuser_ptr, remuser_len) 
then return; 


ch$copy (.node_len, .node_ptr, ' ', naf$s_node, netbuf(naf$t_node)) 
ch$copy (.remuser_len, .remuser_ptr, ' ', 
naf$s_remuser, netbuf(naf$t_remuser)); 


end; 
' 
Set up action routine and rab pointer 
rabptr = outrab: 
action = display_proxy; 


found _ma:ch = false; 
nafrablrab$l_rop) = rab$morrl or rab$m_nlk; 


' 

: Make «all (s) necessary to display the rquested entry or entries 
if rmsbad (locate_proxy (.action)) 

then 


begin 
2 -rmserr eql rms$_rnf 


then 
LIBS$SIGNAL (UAF$_BADSPC) 
else 
LIBSSIGNAL(UAFS_SHOW_ERR, 0, .rmserr); 


end; 
end; 
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2 


. 
° 
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; Routine Size: 220 bytes, Routine Base: SCODE$ + 11C1 
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00000000' 9F 000 ; PUSHAB SD_TOKEN1 : 

44 4 CALLS #2, Hey VALUE : | 

6 pvt #1, HEADER_FLAG 3 $372 

5 MOVZWL TOKENLEN, R : 4 i 

06 =#A MOVL VORENE TR. is] : } 

63 A LOCC #37, R2, (R3) 3 i 

¢ BNEQ 2$ ; i 

) CLAL R1 3 i 

1 83 23: TSTL R1 ; i 

C BNEQ 4$ : 

63 52 A 3A 9 LOCC #42, R2, (R3) 3: 2945 

¢ 2 ) BNEQ 3$ : i 

04 F CLAL R] : i 

1 0 3$: TSTL R1 : } 

F 1 BEQL «=sOSS ; 

F8 A6 _ 4$: MOVL #1, WILD_NETUSER ; 2948 i 

Fe OA 9 MOVL_ 2, MATCA_TOKENLEN > 2949 

BO A6 6 8 MOVCS) R2, (R3), MATCH_TOKEN : 50 i 

2 1 BRB > 2944 i 

FB AB D4 : CLRL WILD_NETUSER 3 57 i 

5E 3 PUSHL i : 2958 ! 

08 AE F PUSHAB REMUSER_PTR : ; 

10 AE 9F PUSHAB NODE_LER : ‘ 

18 AE OF PUSHAB NODE PT : i 

F412 ff $ 44 cits a, R MOTE_PARSE 3 i 

20 20 0c BE osee ry 4 5? mMOVCS NODE_LEN, @NODE_PTR, #32, #32, NETBUF 3: 2961 i 

20 20 046 BE 6E— 2c MOVCS REMUSER LEN. @REMUSER_PTR, #32, #32, - 3: 2963 ; 

5c4 C6 NE TBUF +3 3 ; 

98 66 9C §8 9E MOVAB OUTRAB, RABPTR : 9 4 

50 00 00v 00 9 MOVAB DISPLAY_PROXY, ACTION : 2970 3 

Bee 6 D4 CLAL roe MATCH 3: 2971 3 

0650 C6 001000 F pO VL #1048584, NAFRAB+4 3 376 3 

0 OD PUSHL ACTI : 297 3 

emeees | 4 00 1 F CALLS #1, LOCATE_PROXY 3 3 

1 A6 0 OD MOVL RO, RMSERR 3 3 

$3 0 € BLBS R 3 3 

0 18 Ab OD MOVL RMSERR, RO ; 2980 : 

00018282 8F 30 pl cMPL RO. #96994 ; 

000000006 er 0D PUSHL #UAFS$_BADSPC : 2982 é 

67 1 FB CALLS #1, LIBSSIGNAL : H 

04 RET 3 ; 

0 OD PUSHL RO 3 298/ i 

000000006 &F pp Busta AUAFS. SHOW_ERR : 

67 ef FB CALLS Ae LTB$S1GNAL 3 ; 

04 eT : 2986 : 


vant 


DO.OOO O00 
Wn NOUS WN OOo 


w 
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= 5 EE 
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Ww 
oO 
22 SS 
NOMEN" OOONOUS WIN —O 


Wr 


7 1 ] Robert *Locate_proxy = ac op given proxy record (s)' 
= 


> cout ne locate_proxy (action) 


n 
aed 

i FUNCTIONAL DESCRIPTION: 

This routine will call a requested action routine a number of times. 
i INPUTS: 

ACTION = the action routine to call for each NEUAF record 

i OUTPUTS: 


: none 
i SIDE EFFECTS: 
i none 
local 

status; 


v 
! If wild user, set acces to sequential and fetch all records 


if .wild_netuser 
ae 


selrentrebiy. rac) = rab$c_seq; 
Srewind (rab = :.afrab); 
end; 

status = get_proxy_record (); 


' 
: Fetch record and call action routine until EOF 


if .status 
then (.action) (); 


if .wild_netuser 
-_ 


uitte 5 ben oe _proxy_record () 


-act 
49 | ye oo he S eal rms$_ eof 
then status = true;” 


' 
} Restore keyed access 


0-74 
Tie3e1 


«a? 


3 


; Routine Size: 


50 


107 bytes, 


locate_proxy = access given proxy record (s) 


nafrabCrab$b_rac] = rab$c_key; 


if .wild_netuser and not . found 
then LIBSSIGNAL (UAF$_BADSPC); 


- status 
end 


Sense 
ae 
000000006 00 1 
04 
06 BC 
18 
$s 
06 
06 BC oY 
0001827A = 8F 6 
we 8 
a: 
000000006 ; 
000000006 } 


Routine Base: SCODES + 


match 


001C 00000 LOCATE_PROxY: 


. WORD 
9E HOVAB 
3 MOVAB 

BLBC 
4 CLRB 
F PUS 
FB CALLS 
F CALLS 
D ROVE 
E BLBC 
Fe CALLS 
E BLBC 
F CALLS 
D ROVE 
é BLBC 
Fg CALLS 
1i BRB 
p1 CPL 

BNEG 

MOVL 

nOVB 
E BLBC 
E BLBS 
0D PUSHL 
if CALLS 

ROVE 

RET 

1290 


Be dona1985 17:24:07 


AX=11 BLi 0-74 
UAF BUCSRETUAFMATI Boos) 


e R2,R3 
ey * PROKY cfeconp, R4 
WILB_NETUS 
uit LD DINETUSER, 13 
NAFR 


SYSSREWIND 
m0: § Get ahoxy _RECORD 
srAty uss 

RO 
RO, St 4 

#0. aacTl 
STATUS, #98938 
#1, STATUS 

#1, NAFRAB+30 
witb NETUSER, 6s 
mar FS hic 
STATUS 


USER, 5$ 
cone PROXY _RECORD 
STATU 


Page 3 


—— 
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8 1 1 &sbttl ‘get_proxy_record - read single proxy record’ 
1 be ne get_proxy_record = 
n 


'ee 
' 


; FUNCTIONAL DESCRIPTION: 


pofejloelejteq! 
wT 


nnn 


ODONOW 


This routine accesses a specific NETUAF.DAT record 


Bh § 
061 INPUTS: 
We i none 
064 ! 
065 OUTPUTS: 
sf ; none 
i SIDE EFFECTS: 
O70 3 | 
071 ! none 
Ore ! 
07 bee 
074 
075 local 
876 counter, 
07 success; 


2 
Soa 


counter = retry_rlk; 


081 while ((success = $get (rab = nafrab)) eql rms$_rik>} 
8 and ((counter = .counter - 1) geq 0> 


do 

oBs if Sschdwk (daytim = wakedelta) then Shiber: 
success 

8 end; 


.EXTRN SYSS$GET, SYSSSCHDWK 
SEXTRN SYSSHIBER 


000C 00000 GET_PROXY_RECORD: 
.QORD 


ve ° ° se 
s3 R2,R3 05? 
52 0 MOVL #8, COUNTER : 3079 
00000000' f PUSHAB NAFRAB : 3081 
000000006 1 FB 00 CALLS #1, SYSS$GET ; 
dO 00 MOVL RO. SUCCES : 
000182AA—sBF p CMPL yecess. 8986 : 
§ BNEQ 3 
2 p DECL QUNTER > 3082 
D 19 OOF BLSS ; 
7E 4 00 CLRL ss = (SP) : 3084 
00000000° 0 f PUSHAB WAKEDELTA 
000000006 00 04 FB 0C CALLS #4, SYSSSCHDWK : 


U 


AFMAIN “Jone “1985 17:26:07 me Lisg-32 V4.0-7462 
Y06000 get_proxy_record - read single proxy record “dete 1 R 15:64:20 SRC JUAFMAIN.B32; 1 


ooo 60 80 fe in js CALLS a9. SYSSHIBER 


$ : 
50 00 te SUCCESS, RO 


; Routine Size: 67 bytes, Routine Base: SCODES + 1308 
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1 Zsbttl ‘display_proxy - format and output a proxy entry’ 
1 to age display_proxy : novalue = 
fn 


'ee 
! 


FUNCTIONAL DESCRIPTION: 
This routine formats and outputs a Line of a NETUAF.DAT entry 


i 
! 
: INPUTS: 
ot none 
ek 
§ : OUTPUTS: 
04 none 
06 5 i sive EFrects 
oF | 
08 : none 
09 ' 
lee 
bind 
nafhdr = cstring (*° Node Remote User Local User’), 
shownaf = cstring (°!6AD::!12AD '12AD"); 


if “wild notuser 


tt nu as a ss ss 


PEW OC OBNOA UE WIN "OOO VNOUF WO 


nodelen, usrlen, proxy buf : vector(naf$s_remname+2,byte); 
map 
dbl_colon : vector; 


nodelen = namelen (naf$s_node, netbuf(naf$t_node]): 

usrlen = namelen (naf$s_reauser, nepbuinalee_reayser J); 

ch$move (.nodelen, netbuf(naf$t_node], proxy_buf (0)); 

ch$move (2, -dbl_colon{1), proxy_buf t .nodelén}); 

ch$move (.usrlen, netbuf fnat$t_Femuser], proxy_buf C.nodelens2)); 


usrlen = .nodelen + .usrlen + 2; 
fmgSmatch_name (.usrilen, proxy_buf, -Match_tokenien, match_token) 


et ee et ee el ce ee ee el eel cel el cel cel ce el eel eel ell el eld 


. then 
Ree return; 
OO 
fay found_match = true; 
‘ 
Ors if .header_flag 
07 40 then 
074 ai begin 
075 $§ faomac (nafhdr); 
fh «3 output_null; 
07 ba header _flag = false; 


—~ 


vaca 


12 
a 


; Br 163 end; 
: 30 P 129 faomac (shownaf, 
; 3081 P 13 ‘eee naf$s_node, netbuf(naf$t_node), 
; 30 ¢ P 314 \eee nat$s_remuser, netbuf(naf$t_remuser), 
3; P 3150 lene naf$s_localuser, netbuf(naf$t_loceluser)); 
; 30 P 3151 6, netbufinaf$t_node), 
; 3085 P 31 ¢ 1. netbufinaf$t_remuser], 
; 30 1 12, netbuflnaf$t_localuser)); 
; 308 154 
; 3088 155 end; 
«PSECT 
0026C P.ACQ: .BYTE 
20 65 74 6F 6D 65 52 20 20 20 65 64 6F 4 6 0260 ASCII 
20 6C 61 63 6F 4C 20 20 i 20 20 fg $2 5 i 09 i ni 
14 QO28F P.ACR: .BYT 
20 20 20 20 44 41 32 31 21 3A 3A 44 41 36 $| 06 90 5 ASCH 
44 41 32 31 21 0029F 
NAF HDR= 
SHOWNAF = 
-PSECT 
OFFC 00000 srt tt > % 
5B 00000000' 00 9€E 00002 MOVAB 
5A 09000006 0 9E 00009 VAB 
59 00000000' 00 9€ Baie MOVAB 
SE eee AE SE 0001 ROVAB 
i 60 A e . 7 BLBC 
56 50 $0 ts SUBLS 
fe, Oat BO a 
6E 060C 3 6 3 p MOVC 
mn 666 SF 00043 PUSH 
9 9 9 re MOVW 
02 AE46 062C C8 4 MOVC3 
5 0 ws E 1 MOVAB 
23 AS 9E 6 MOVAB 
6 9 A MOVAB 
3 SF BO 0008 ROVE 
6g 000000006 Hi bk te 
0748 Dd 1$: MOVL 
SF 68 5 BLBC 
FB AB 0158 ~«C 7 MOVZBW 


N 
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SPLITS,NOWRT ,NOEXE ,2 


34 
\ Node Remote User Local User\ 


20 
\!6AD::!12AD !12AD\ 


P.ACQ 
P.ACR 
SYSSFAO 
SCODES ,NOWRT,2 


Save R2,R3,R4,R5,R6,R7,RB,R9.R10,R11 
HEADER FLAG, R11 
SYSS$PUT, R16 

DBL_COLON+4, R9 

RABPTR, R 


RO, #32, NODELEN 

a8, #32, NETBUF +32 

RO, #32, USRLEN 

NODELEN NETBUF, PROXY_BUF 


BL_COLON+ 
PRORY BUF [NODELEN] 
(RO), “a(SP)+ 
SRLEN F 


PROXY BUF +2CNODELEN] 


NE TBUF +32 
USRLEN 


SUSRLEND NODELENI. 
CH_TOKEN, R 


RO, 3 
#1. FOUND MATCH 
HEADER_FLAG, 28 
NAFHDR; FAODSC 


3089 


UAFMAIN 
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FC OA 0159 C9 9E 00078 MOVAB. NAFHDR+1, FAODSC+4 ; 
FO |= ASOOF 1 PUSHAB {50s ; 
7E 68 2 a ADDL3 #34, RABPTR, -(SP) : 
F8 AB SF 000 PUSHAB FAODS ; 
000000006 00 03 FB 000 CALLS #3, SYS$FAO ; 
68 0D 009 PUSHL RABPTR : 
6A 01 FB 00094 CALLS SYSSPUT : 
50 68 D0 00097 MOVL RAPER: RO ; 
22 Ad B4 DO09A CLRW 34(RO) ; 
50 DD 0009D PUSHL RO : 
e t ie itt free HEADER rine + 3144 
FB OA 0178 8 BB i 2$: MOVZBW SHOWNAF, FAODSC : 3164 
FC OA 017C €9 GE OOOAA MOVAB SHOWNAF+1, FAODSC+4 F 
064€ C8 9F 00080 PUSHAB NETBUF+64— : 
OC DD 000B4 PUSHL #12 : 
062C CB 9F 000B6 PUSHAB NETBUF +32 ; 
OC DD OOOBA PUSHL #12 : 
060c C& 9F 000BC PUSHAB NETBUF ; 
06 Dd 000C0 PUSHL #6 : 
FO «AB OOF 900¢2 PUSHAB DISDSC : 
7E 68 oe g 00C ADDL3 #34, RABPTR, -(SP) r 
F8 AB SF 00009 PUSHAB FAODS : 
000000006 00 09 FB 200¢¢ CALLS #9, SYSS$FAO : 
68 DD 000D PUSHL PT : 
6A 01 FB 00005 CALLS #1, SYS$PUT : 
04 00008 38: RET > 3155 


; Routine Size: 217 bytes, Routine Base: S$CODES + 1348 
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1 $ 1 &sbttl ‘wild_user = user wild card routine’ 
1 global routine wild_user (action) = 
egin 


— ts 


ee 
! 
i FUNCTIONAL DESCRIPTION: 


Provide a general means of accessing the User Authorization File 
records. [here are six methods: 


UGMS 
IRET 
C 
ANAN 
F tdi be 
LII] 
ALLL 
Syntax GDDD Interpretation 
Username FFFF Exactly one user is to be located 
v FFFT ALL users (alphabetically) 
Group,AMember] TFFF ALL users with the specitied vIC 
Group,*)] TFTF ALL _ users in the specified group (by member ) 
* Member) TIFF A FIFO Sig ay of the groups with this member 
*,*) TTTF ALL users by UIC 
INPUTS: 


ACTION = Pointer to routine to call after each successful GET 
IMPLICIT INPUTS: 
UIC form (instead of username) 
Group wild card (must imply VIC 
Member wild card (must imply ull 
all users alphabetically (must i 
FRAB = RMS data structure for SYSUAF.DAT 
RECBUF = The current record 
OUTPUTS: 
none 
IMPLICIT OUTPUTS: 
none 
ROUTINE VALUE: 


If an abnormal condition is encountered the appropriate status 
is returned. 


SIDE EFFECTS: 
none 


AG) 
LAG) 
ly NOT UIC_FLAG) 


v 

ce 

— 

(ond 

o 
sete 


FL 
é, 
mp 


nrorvroroerer 
SSE REUN LS SSVSE ARUN LS SHV nrun-oSsweARaves 


ee et ee et el el el elt ee el elt ee lt lt cel elt cel cell cel lt cls lt sels call cls ls ld alls 


PLA AAA AMAA A AMA HAA. A. AAA. AAA AAA. AINA AON AION NIAAA AAAI AAAI 


PIII III III tt st ee el lt el ee lt ll ll lh ll ll ll ll lh eal 


. 
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. 
. 
. 
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. 
. 
. 
. 
. 
. 
. 
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. 
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. 
. 
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. 
. 
a 
. 
. 
. 
. 
. 
. 
. 
. 


Se ee ee ee ee ee ee ee ee ee eee 


NISSSLSRF GRAS SSLSSL AS LESSENS ONS SAVIN N AT ISSSUS ROR OSS 


BeBe Oe Oe ee oy See Se Se Oe Oe Oe Oe Oe Oe Oe Oe Oe He Be He Be HEED He HOH Hs Oe Oe Oe Oe Oe Oe OH Oe OHO OH Oe OH Oe OH Oe Oe Oe OH Oe Oe Oe Oe Oe oe Be ee 


POPPE PU AE AUPE E HAA Ed EEL AEA AA AAA 
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<cC 


macro 
lmt_l_uic ' User ID Code 
Lmt_w_mem ' Member subfie 
imt_w_grp ; ! Group subfiel 


i 

d 
l 

1 d 

: 

status, ! This routine's status 

lmtkey : block(4,byte); ! Limiting key value for sequential loop 


—> ss bt te 


VW 


if .vic flag 

- 

i i spect the key of reference and the key buffer if a UIC form was 
specified. 


OONOUES WO 0W~) 


= 1; 
vafrabCrab$l-kbf) = recbufCuaf$l wuic); 
uarreb rab$b_ksz) = 4; 
end; 


strane krf 


: 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


NN NINITININININIRINIRIRIRIR IRINA 
w 


5 
8 
6 
5 


if .mem_wild and not .grp_wild 
then 


i The UIC requested was of the form (Group,*] 
uafrabCrab$v_kge) = true; 


Mrrororfor 
ae 


DOONAN WO OONOUES WOO 


i LMTKEY need be Loaded only IF .UIC_FLAG AND NOT (.GRP_WILD AND .MEM_WILD) 
! but it is simpler to always load if. 


imtkeyClmt_l_uic] = .recbufCuaf$l_uic); 
' 
: Locate the first user meeting the specification. 


if .str_wild or .grp_wild 
then 
begin 
Every user in the file is to be accessed. 


PPPS AE BE EEE EE 


vafrabCrab$b_rac]) = rab$c_seq; 
Srewind (rab"= uafrab); 
status = get_uaf_record (); 


© 
else 
begin 
ef otus = S57 _uaf record (); 
if .uic. 
then 
begin 


LSSSLESRAN LSE SEVERAL SS SSHVSARANSSSSLF. 


PROPRIPIPIPIPIAPININIPIPIPIPIPIPIPINPIPSPIPOP NPN Ponofnony 


SRLSALERAS 


oo 
wn 
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Even an explicit UIC requires sequential reads to locate duplicates. 


vafrabCrab$b_rac] = rab$c_seq; 
f .mem_wiid and not .grp_wild 


04 70 
05 f} 
OF , 
08 74 then 
4 a begin 
11 7 ! RABSV_KGE is . on the initial access tor specifications of the 
\¢ 7 ! form [Group,*] so if the specified group has no members the record 
\? 6 will be that of a user in ancther group. 
15 3] yatreblrabsy koe! = false; 
16 § if .lmtkey(lmt_wigrp) nequ .recbufCuaf$w_grp) 
17 8 then 
18 84 status = rms$_rnf; 
19 85 end; 
20 6 end; 
1 end; 
¢ 88 
89 if .status 
& then 
2 begin 


RANTS 


i Feed the action routine the first record. In the case of an explicit 
} username specification this will be the only record. 


while .status 
do 


nae 
if .grp_wild and not .mem_wild 
then .recbufluafSw_mem) eql .imtkey{lmt_w_mem] 
else true 


Ss 


Heth epee Na Re a Aa Ape hy A 
SBS AFE UNOS Seu 
POPIPOPIPOPININONY: 
DOO 
hhh. ty 


Mslwnr— 


then status = (.action) (); 

if not .status then exis loge: 
if not (.str_wild or .uic_flag) 
then exitloop; 

status = get_uaf_record (); 

if not .status then exitloop; 
if .uic_flag 
then 


begin 


The Limiting key value is used in different ways depending 
on the form of the UIC specification. 


COOQOoOoCoeoo 


S& 


SPREE 


w WPT BS 


Wino 


MITUPIPITUTINIPITOND 


if .mem_wild and not .grp_wild 
then 
: (Group,*) 


in 
T#9 UntkeyCunt_v. ore} nequ .recbufCuaf$w_grp) 
then exitloop; 


AVF" OO0ONO UENO 


PROPOPOPONONONY — — 


Roronononensforororory 


end; 
if not (.grp_wild or .mem_wild) 


b-Jan-1985 12:36:07 AX-11 Oi lege V4.0-742 Page 


vA aS 
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; 3261 7 then 
3 6¢ 8 ! i 
: 326 ! (Group,Member ] ‘ 
; 3264 0 : ‘ 
; 3265 1 begin i 
3 $8 § 6 if .UmtkeyClmt_t_uic] nequ .recbufCuaf$l_uic] ‘ 
: 326 g then exitloop; ‘ 
: 3268 4 end; ‘ 
3 +4 5 4 end; ‘ 
; 0 end; ! end of wild carding loop : 
: 3271 if .status eql rms$_eof ‘ 
; if 3 then status = true; ! Hitting EOF is ok i 
: 35h0 0 ie : 
: 3275 1 if .str_wild and not .found_match ‘ 
3 76 *g then LIBSSIGNAL (UAFS$_BADSPC); ‘ 
; 327 , 2! 
3 3 5 : The RAB must be returned to its former state before exiting. : 
3 +} <3 uafrabCrab$b_rac] = rab$c_key; : 
; Hy $ if .vic_flag : 
; 3284 50 then : 
: 3285 51 begin : 
3 My] 26 uafrabCrabSb_krf) = 0; ; 
3 a 5 uafrablrab$l_kbf] = recbufCuaf$t_username); ‘ 
; 54 uafrablrab$b_ksz] = uaf$s_username; ; 
; 3289 55 end; : 
: 3290 2$ 
; 1 5 : 

3 § 38 } Reset parse count 

3 60 call_count = 0; 

3; 3295 1 

; 3296 366 -Status 

; 3297 365 1 end; 


SER, Save R2,R3,R4 


4 v novAB aay RECORD, R4& 
+ Sospoooe 09 MOVAB GRPTWILD RS 
é SUBL2 #4,°SP 
FC OA BLBC ~—_dJE_ FLAG, 18 
FFSO. CC F95SC MOVAB RECBUF+36, UAFRAB+48 
FF Se 0104 =F MOVW #260, UAFRAB+S2 
04 a3 BLBC = MEM_WILD, 33 
$ BLBS GRPTWILD, 2 
FF26 «OC BISB2 #327 UAFRAB+6 
F95¢ C MOVL RECBUF+36, LATKEY 
A BLBS  STR_WILD, 3 
1 6 BLBC 3—O sd GRP witp as 
FE3E C CLRB  —sUAF RAB+30 
FF ¢ PUS UAF 
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VO6~000 wild_user - user wild card routine met Fi 15:84:96 UA BLESRETUAFMAIN BSoe) aad 4 
000000006 00 1 FB CALLS #1, SYSS°EWIND : 
$4 F CALLS #0, GET_UAF_RECORD : 3261 i 
2 Dd MOVL RO, STATUS : 
1 BRB 5 : 3 53 ‘ 
64 F 4$ CALLS . GET_UAF_RECORD + 3265 : 
52 D MOVL RO, STATUS : : 
iF FC OA f piac =—_-srs¢ FLAG 5$ ; : 
FF SE C3 94 CLRB  —sUAFRAB+30 : i 
17 4 Ad £9 BLBC «=—«s-sMEM_WILD, 5$ : 327 i 
14 $ + BLBS GRP-WILD. 5$ : i 
FF26 C3 A BICB2 #32> UAFRAB+6 ; 3281 : 
FOSE =C 02 At Q CAP EATKEYe2, RECBUF +38 3 3282 
52 00018282 BF D MOVL #98994, STATUS + 3284 
B £ 7D 5$ BLBC STATUS. 12$ 3 3289 
4c 9 és BLBC STATUS. 11$ : 
08 63 £9 BLBC ~=—-s GRF_WILD, 7$ ; 
0 94 AS EB BLES) =s«dMEM WILD 7$ : 
6E F95C 8 cRPy RECBUF+36, LMTKEY : 3301 
% BC FB 00091 7S CALLS #0, @ACTION ; 3306 
DO 00C MOVL RO. STATUS : 
4 E9 00098 8$ BLBC STATUS, 11$ : 3305 
04 08 AS CE BLBS STR_WILD, 9$ : 3306 
2c FC OAS OC BLBC  UICTFLAG, 11$ : 
64 F A3 9S CALLS , GET_UAF_RECORD : 3308 
; D MOVL RO, STATUS ; 
2 E BLBC STATUS, 11$ : 
00 FC OAS. CEO BLBC —-UIC_FLAG, 6$ : 3310 
0 06 =A D9 MOVL REM“WIL : 3317 
08 50 € BLBC 1 ; 
C6 63 £8 BLBS GRP_WILD, 6$ ; 
FOSE =C¢ 02 AE 81 cP LATREY*2, RECBUF +38 : 3323 
BB 5 E 10$:  BLBS GRP_WILD, 5$ : 3326 
0 € BLBS ~=ss«RO, “6 ; 
F9SC. CC 6— 0D CMPL = LMTKEY, RECBUF +36 : 3332 
13 000CD BEQL «=s«6S F 
0001827A = BF g pj CF 11$:  CMPL STATUS, #98938 : 3337 
BNEQ les ; 
52 D MOVL #1, STATUS ; 3358 
11 08 As E DB 128 BLBC © STR WILD, 138 : 1 
0D FB OAS OES BLBS  FOURD_MATCH, 138 ; 
G 8F DD PUSHL FS" BADSPC : 3342 
G 09 a CALLS #1, LIBSSIGNAL ; 
FFE 4 1 13$: VB #1. UAFRABS3 ; 3347 
ae BLBC UIE FLAG, 14 : ? 
FESO C F93C § MOVAB RE CBUF +4 UAF RAB+48 : 2 
FFS4 CO MOVW #32, UAFRAB+S2 : 3354 
F914 ¢ D4 148 CLRL = CALL_COUNT : 
50 Bd ROVE STATOS, RO : 


; Routine Size: 269 bytes, Routine Base: SCODES + 1424 
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1 Bebtyt “display_brief - writes a brief user display’ 
1 = display brief = 


‘ee 
i 


i FUNCTIONAL DESCRIPTION: 


Provide an ASCII Listing of the most important record information 
(username, owner, etc.) for each record supplied. 


INPUTS: 
none 
IMPLICIT INPUTS: 
RABPTR - RMS data structure for the file 
OUTPUTS: 
none 
IMPLICIT OUTPUTS: 
none 
ROUTINE VALUE: 
none 
SIDE EFFECTS: 
none 


AEN "OOOO UE WO 


PIII ed et ot et ot ot 


| = ee ee ee 
oe 


nd 

iststri = cstring (' Owner Username uICc Account Privs', 
* Pri Dirgctory >. 

iststr2 = cstring ("!20AC !12AD !152U !8AF !6AC !2UL !AC!AC"'); 

1 

Output a header if one was requested. 


if .header_flag 
then 


begin 

faomac (lststri); 
output_null; 
header_flag = false; 


COOnNOUS VT —O 


if .str_wild and not fmgSmatch_name (namelen (uaf$s_username,recbuf[uaf$t_username)), 
recbufCuaf$t_uSername 
-match_tokenTen, match_token) 


I 
wn 


ANN PTI Y Ab. A.A. A. AANA 
we EFELS 


ae SSGSERFUNSSSSSVS 
aol 
BosasaR AS SSISS POLES SEUSS SSS SERN SES ESES IS ISI I SES 


é ther return true; 


vant 


63 
69 


vuvvVvVvVVvUUU 


display_brief - writes a brief user display 


Jan-1985 1 
be danetg 2 1538 
found_match = true; 


' 
} Output the record. 


ch$fill (° *, disbuflen, disbuf); 
faomac nlite 


rec uafS$t_owner), 
!eee uaf$s_usérname, recbufCuaf$t_username], 
12, cee Ttyatse. ", slomnes: 
tee ase t. recbufCuaf$t_account], 
. . g u Cc in 
erbuiluefst account 5 
Hace fy priv v CFesbuiluatsa, priv], .recbufCuaf$l_uic 
-recbufluaf$ 
recbuf(uaf$t “de dei 
recbufluaf$t_defdir 5; 
true 
end; 
-PSECT 
4 O2A4 P.ACS: .BYTE 
77 «‘4F 29 0 20 20 20 20 02A5 ASCII 
65 73 0 20 : BS 
0 20 $ 0 8 C3 
° 0 20 3 43 49 td ASCII 
6 $3 0 20 74 of oc 
79 72 6F 74 63 65 72 6 ER 
7 F5 P.ACT: .BYTE 
34 30 fe 22 8 3} 38 88 58 Costs pg 
as a) 39 a3 at S14 50 ae $8 Oost 
LSTSTRI= 
LSTSTR2= 
-PSECT 
O7FC 00000 DISPLAY_BRIEF: 
- WORD 
A 9E MOV 
9 9E MOVAB 
8 1 MOVAB 
1 MOVAB 
$ 1 MOV 
A BLBC 
FB Ab 7 MOV7BW 
FC = AG 01 A? C MOVAB 
FO F 1 PUSHAB 
7E 66 22 C1 ADDL3 


4: 07 AX-11 Bliss- 
0 UAF .BUGSRC JU 


1: Re 1 
j), 
SPLITS,NOWRT ,NOEXE ,2 
78 
\ Owner Username 
\WUIC Account Privs Pri Directory\ 


39 
\I20AC !12AD !15%U !8AF !6AC !2UL !AC!AC\ 


SCODES ,NOWRT 2 


+ Re R3,R4 Re. R6,R7,.RB,RI,R10 


ie le 
A 


LSTSTRT, 
LSTsinisy, FAODSC+4 
& 


470S¢ 
- RABPTR, (SP) 
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8 ag 9F 000 PUSHAB FAODSC ; 

69 FB 000 CALLS @ SYSSFAO ; 

dd 00C PUSHL RABPTR ; 

68 FB 0 CALLS #1, SYSS$PUT : 

00 000 VL —-RABPTR, R ; 

22. AD B4 000 CLRW = 34(RO) : 

3 DD 006 PUSHL RO : 

458 FB CALLS #1, SYS$PUT : 

6A D4 000 CLAL HEADER FLAG : 

0758 C6 £9 00050 18: BLBC STR WICD, 2% : 

1 ‘ MOVAB MATCH_T R5 ; 

008¢ g 00 MOVAB RECBUF +4, : 

008c 6 A 000 LOCC #32, #32. RECBUF +4 ; 
EO Ad 9€ 0006 ROVAB = (RQ), “Re ; 

5 cE 0068 MNEGL R ' R ; 

54 5 A6 DO 0006 MOVL MATCH TOKENLEN, R4 : 

a 000000006 Q 1 JB FRGSAATCH_NARE : 

0748 66 1 BO 2$: MOVL. #1, FOUND_MATCH ; 
0084 &8F 20 6E sone 8 C MOVCS #0, (SP),"#32, #132, DISBUF ; 
FBG 4F $ 98 MOVZBW LSTSTR2, FAODSC : 

FC AG 50 aA? 9E VAB LSTSTR2*1, FAODSC+4 ; 

ric C6 OF PUSHAB RECBUF +148 3 

FC «(C6 OOF SHAB RECBUF+116 ; 

7E 8C C6 9A MOV ZBL RECBUF +316, -(SP) : 

AC C6 DD PUSHL RECBUF +36 : 

24 F PUSHAB RECBUF +412 : 

00000000v 00 FB CALLS ‘ , CLASSIFY_PRIV : 
00B¢ 6 F PUSHAB RECBUF +52 ; 

8 0D PUSHL @# F 

AC C6 DD PUSHL RECBUF +36 : 

8C C6 OOF PUSHAB RE CBUF +4 ; 

OC DD PUSHL # ; 

000. C6 OF PUSHAB RECBUF +84 ; 

FO «AG ODF PUSHAB bj sps¢ ; 

7E 56 a 2 ! ADDL #34 RABPTR, -(SP) : 
69 0D FB CALLS ne SYSSFAO ; 

DD PUSHL : 

68 1 FB CALLS #1, SYSS$PUT ; 

1 BY 3$: MOVL #1, RO ; 

RET ; 


; Routine Size: 217 bytes, Routine Base: S$CODE$ + 1531 


—— 
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$3 1 Esbtel ‘classify_priv - cloest ties contents of priv vector’ 
¢) zs 


4 routine classify _priv (prvadr, 
G45 2 begin on : 
44 
44 !¢ 

48 : 


i FUNCTIONAL DESCRIPTION: 


Classifies privilege bits and reports the highest class available 
to the owner of the supplied vector. 


INPUTS: 
PRVADR = Address of the privilege vector 


ooo 
WN =O OONOULS WOO 


Seiko ete ee eee 


‘ 
! 
i 
' 
t 
A 
¥ { IMPLICIT INPUTS: 
4 i none 
3 
98 ! OUTPUTS: 
99 ‘ 
4 } none 
Oe i IMPLICIT OUTPUTS: 
04 468 2 none 
05 9 ' 
06 0 ' ROUTINE VALUE: 
07 71 : 
08 7 ! none 
09 7 ' 
10 74 ! SIDE EFFECTS: 
13 the 8 i 
1 ie 
15 § map 
1¢ rs} prvadr : ref block(&,byte); 
§ bind 
1 istprva = cstring (‘ALL*), 
0 istprvb = cstring (‘Files’) 
1 5 istprvc = cstring ('System'S, 
§ istprvd = cstring ("Devour'), 
istprve = cstring ('Group') 
& istprvf = cstring (*Normal'S, 
é istprvg = cstring (*None'); 


if .prvadr(prv$v_cakrnal 
or .prvadriprv$v_cmexec 
or .prvadrlprv$v_sysnam 
or .prvadriprv$v_detach 
or .prvadriprv$v_log_io 
-prvadriprv$v_setprv 
-prvadriprv$v_phy_io 
or .prvadri prv$v_pfnmap 
or .prvadrlprv$v_sysprv 


whe 
SSSESPERE 
oo 
=> 


wr 


4 
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Page 121 
9° 28) 


Mur 


Spd dh chb hb dh dh dh ch duh dh sh Ah Ah Ab Ab Ah Ah Ah Al Ah Ah dh daa! 


PAAAAAAAMAMAMMAMI 


or .prvadr(prv$v afoodat 
or .prvadr pry v_bypas 
or (.uic<) 6> 

then return (stprva; 


if .prvadr prvi ~diagnos 
or .prvadriprv$v_volpro 
or .prvadri prv$v_upgrade) 


or .prvedr prune ~domered 


i 


= -prvadr os =securit 
-prvadriprv$v— i ba 
then return lstprv 


or .prvadriprv$v pote 

= -prvadriprv$v_ mart 
-prvadrlprv$v ats 

then return (stprvc; 


if ; Sree este ~Pswapn 


if .prvedr(prv$v_gr 
or .prvadriprvSv_ a iiete 
or .prvadrlprv$v_noacnt 
or .prvadrtprv$v_ <praces 
or .prvadriprv$v_prmmb 
or .prvadr prvv_ ~exquote) 
or .prvadrlorv$v_ 
- -prvadr prviv_ <prmgb 

r .prvadrlprv$v_shmen 
then return (stprvd; 


if .prvadr(prv$v_group) 
or .prvadrlprv$v_grpprv) 
then return (stprve; 

if .prvadr(Cprv$v_tmpmbx 
or ‘brvadr br viv~ -tnoabx) 
or .prvadr(prv$v_mount) 
then return (stprvf; 


lstprv 
end; . 


73 «65 


72 75 OF 
70 75 


J 


e] 


6C 
6c 
73 
76 
oF 


classify_priv - classifies contents of priv vec 


“(equ *EXESGL ~SYSUIC) 


6C 
69 
79 
65 
72 


Universal Privilege 


! Potentially Comprimises File Security 


! Can Interfere with System Operation 


! Can Devour System Resources 


! Can Interfere with Group Members 


! Normal Privileges 
! Not Privileged 


SPLITS,NOWRT ,NOEXE 2 


oro 
Nun 
bd od 


SiS 


oo 


Nmmw 


BO os yy 
AOAOOWOoOo— 


000000006 00 


SRS NO 
FR 


& &s 


OO — 
Boofers 
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classify priv - classifies contents of priv vec 5 
6C 61 6D 72 6F 


65 6€ 6F 


0 


35 00000000" 00 
04 


= Sze »— AOS 0] “GVA COOCS > 
Sune ASO Oo SRASoanromronroon 
mmmmm —mmmmnm m meen 2 
ARIE NTR END IRI NTRT aT 2-3-4 poe —— t=) S 
— Soe Se 
* e >¢ 2. 


02 
60 
51 OA 
6 
6 
6 ‘ 


i ae 


a 15:84:96 


ASCII 


ASCII 


BBS 


SSSSESESZS 
Duvnmnnnn 


@ 
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vuvuvuvVvUU 
*e 2 . 


SCODES ,NOWRT ,2 


2, EXESGL_SYSUIC 


PAPAAAAA VMIVIVAW WWW 
RPP tees es 
SYVFUN—OD NOU “Ww =s38 4 


[a 


UAF MAIN 

04000 
06 
08 
04 
05 


; Routine Size: 209 bytes, 


$f 


i 
06 A 


50 


Routine Base: 


classify_priv = classifies contents of priv vec 


n BB 
“it 
a: 
Hf 
HY 
25. Ae se 


SCODES + 160A 


4 7$: 
As 
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tse, A 


#2 btrgs 11$ 
LSTPRVE, al 
R1, R 


8$ 
1 


a 
At (ROD 188 
LSTPRVF, RO 
LSTPRVG, RO 


Poae 38} 
3356 


By 


¥ 
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display_full - writes the full user display B-Jan-19 4 13: 


oO 


1 Xsbttl ‘display_full - 


writes the full user display’ 
routine display_full = 
begin 


lee 

| FUNCTIONAL DESCRIPTION: 
Display the fields of a UAF record. 
INPUTS: 

RABPTR = RMS data structure for the file 
IMPLICIT INPUTS: 

none 

OUTPUTS: 

none 

IMPLICIT OUTPUTS: 

none 

} ROUTINE VALUE: 

: rone 

SIDE EFFECTS: 

i 


none 


! 
: Display strings. 


local 
status : long ; 

bind 
username = cstring ("Username: !32AF Owner: 
account = cstring (‘Account: !52AF UIC: 
cli_table = cstring (‘CLI: 'S2AC Tables: 
default = cstring ("Default: ‘!AC!AC"), 
lgicmd = cstring (‘LGICMD: tac") 
flags = cstring ("Login Flags: 'Ab*) 
flag_pad = cstring Eghor (cr), Ichar (Ct), 
primdays = cstring (‘Primary days: !7(AC)"), 
secdays = cstring ("Secondary days:!7(AC)") 
norestrict = cstring (‘No access restrictions’), 
accesshdri = cs cin ( 

‘Primary 11171111112222 Secondary 000000000011111111112222"), 


ccesshor 


PORSPORoPORoROPORONORONORSPOPOPOROPORURONUNOPORPORO NOR PON nono nonononononononononononofnononononononorurofnonn 
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vu 
= 
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Zee 
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Ee 
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SBISEARE 
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full user display b-Jan-19 13:61:40 LUAF .BUGSRCIUAFMAIN.B S201 02 ; 
metaccess = cstring ("Network: !AD 'AD'), 
bataccess = cstring (Batch: ‘AO 'AD'), 
locaccess = cstring (‘Local: ' AD 'AD'), 
diaaccess = cstring ("Dialup: 'AD 'AD'), 
remaccess = cstring (‘Remote: ' AD 'AD'), 
expiration = cstring (‘Expiration: !AD Pwdminimum: !2UL begin Fails: !SUL"), 
wddata. = cstring (*Pudlifetime: 'AD Pugehonge; tAD !AD"), 
astlogin = cstring ("Last Login: !AD (interactive), JA spon caneress tvel Ps 
quota} = cstring ('Maxjobs: Suc Fillm: +2uL Byt lm: 'SuL'), 
quota = cstring ("Maxacctjobs: :5UL Shrfilim: !5uL Pbytim: '9UL"), 
quota = cstring ("Maxdetach: ‘SUL =B10Lm: ‘SUL gi quate: '9UL"), 
quotas = cstring bopr gee ‘SUL =C10Lm: ‘SUL WSdef: '9UL"), 
quotas = cstring (*Pr 0: ‘SUL «ASTI am: ‘SUL WSquo: 'OUL"), 
quota = ¢string ("Que rio: ‘SUL TQELm: 'SUL WSextent: !9UL"), 
quota = cstrin ("CPU !13AD Enqla: 'SuL Pgflquo: ‘!9UL"), 
privs = cstring ("Author ized Privileges: ‘) 
defprivs = cstring ("Default Privileges: ‘), 
nullstr = cstring ('"), 
mon = cstring (° Mon’), 
tue = cstring (* Tue"), 
wed = cstring (' Wed"), 
thu = cstring (* Thu"), 
fri = cstring (" Fri‘), 
sat = cstring (" Sat’), 
sun = cstring (* Sun"), 
noday = cstring (° a 
cputime = recbufCuaf$l_cputim); ! CPU Limit in hundredths of a second 
flags_vector : vector (32) groset ( 
Sbitp~sition (uaf$v_audit) = ¢string (' Audit’), 
S$bityosition (uaf$v_captive)] = cstring (" Captive’), 
Sbitposition (uaf$v_defcli)] = cstring (" Defcli') 
Sbitposition (uat$vidisctly)) = string (' Disetlyi), 
Sbitpcsition (uaf$v_nomail)) = cstrina (* Dismail’) 
Sbitposition (uaf$v_dismail)] = cstring (* Disnewmai('), 
S$bitposition ue tev.) srecennesty2 = cstring (° Disreconnect’), 
Sbitposition (uaf$v_disreport) = cstring (' Disreport'), 
Sbitposition (uaf$v_disacnt) = ¢string (" Disuser’>, 
Sbitposition CuafSv-genpeass- = string (* Genped'ye, 
v = cstr 
Sbitposition (uaf$v-toc pwd)) = ¢string (' Lockpud’S, 
Sbitposition (uaf$v_pwd_expired)] = cstring (* Pwd_expired’) 
(Sbitposition (uaf$v~pwd2_expired)] = cstring (* Pwd2_expired') 
count, ' count for string being built 
lcount, ! count cf chars on current Line 
string : wector (160, byte), ! buffer to build display string 
flag_string : ref eae E byte e+} gorater to flag string 
: vector Llong, 2], ' Scratch area for system delta time 


delta_time 
PTR 


time! 


! Pointer into UAF$Q_PwD 


DATE quadword 
! buffer for time stfFing™ 


: vector (17, byte), 


+ 


UAFM =Jjan-1985 4: AX-11 Blisg-32 V4.0-742 Pp 127 
VO6~000 display_full - writes the full user display Beane 19 153 84 % UAF .BUGSRC JUAFMAIN.B32;1 age 35) 
time : vector Fi. byte], ! buffer for time string 
time : vector byte; i puffer for time string 
builtin 
emul; 


if .str_wild and not fmg$match_name (namelen (uaf$s_username,recbuf(uaf$t_username)), 
recbufCuaf$t_username 
-match_totenTen, match_ token) 

then return true; 


found_match = true; 
output _null; 


faomac (username, 
uaf$s ce ges 5 | hana username), 
recbufluaf$t_owner 


faomac (account, 
uaf$s_a account, re bufCuaf$t_account], 
-recbufCuaf$i_u 
-recbufluaf$l ote 5; 


faomac (cli_table, 
recbufluaf$t_defclil, 
recbufCuaf$t_clitables)); 
faomac (default, 
recbuf oatee Hittite 
recbufluaf$t defdirJ) 


f aomac sUgicad 
recbutluaf$t _\gicmd)); 


count = 0; 
lcount = Hage, F 
gy j trom 0 ~~ # 


begin 

if. .bitvector CrecbufCuaf$l ;{ tags). jj 

and (flag_string = .flags_vector [.ji) neq 0 
en 


in 
TT”. (count + .flag_string(0) gtru 80 
then 


begin 
chinove (. flag_pade0.8>, flag padel, stringl.count)); 
count = .count™+ “13° pad<0,8>; 
Lcount = .flag_pad<0,85 - 2; 
ch$move (. fl -tringl0), {tag tringl1], stringl.count)); 
count = .count + flag st — athe 
(count = .lcount + .flag_ str 


Bee Oe Se Se Se Ge Fe Se Se Se Se Se Ge Be Se Ge Se Oe Se Be Se Se Se Be Se Se Gs Se He Oe Os Oe Oe He Oe Oe Oe Oe Oe Oe Oe Oe Oe Os Oe os Seed Le oe 


ely) — ot 8 se 
wwO Pwr —Ooe iw) USSSSSwO PUN OOO uO MRL O 
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end; 
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wv 
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end; 


faomac (flags, 
-count, string); 


faomac (primdays 


if .recbuf uat$v spender. then noday else mon, 
if .recbufluaf$v_tuesday) then noday else tue, 
if .recbuf ua {$v utes eg then noday else wed, 
if .recbuflua ~thursdgy then noday else thu, 
if .recbuf tt ie riday then noday' else fri, 
if .recbufluaf$v_ osaturegys then noday' else sat 

if .recbufluaf$v~sunday then noday else sun}: 

faomac (secda 

if .recbufluaf$v monday) then mon else noday, 
if .recbufluaf$v_tuesday) then tue else noday, 
if .recbuf(luaf$v_ sere, then wed else noday, 
if .recbufluaf$v_ pyr seer then thu else noday, 
if .recbufluaf$v_ friday then fri else noday, 
if .recbufluaf$v ~botursey) then sat else noday 
if .recbufCuaf$v~sunday then sun else noday); 


2 ch$fail (ch$find_not_ch (10euaf$s_network_access_p, recbufCuaf$b_network_access_p), 0)) 
en 


begin ; 
faomac (norestrict); 


else ' 
n 
faomac (accesshdr1); 
faomac (accesshdr2); 


display_hours (netaccess, recbuf(luaf$b_network_access py: 
display_hours (bataccess, recburluaf$b- ~batch_access_ 
display_hours (locaccess, recbuf uaf$b_local— “access_p 
display_hours (diaaccess, recbuf(uaf$b— “dialup_access att 
display! hours (remaccess, recbufluaf$b_remote_access 


convert ting (recbufCuaf$q_expiration], 17, timel); 
Toone. Tex rotten, 


seein rire? 


2 


convert ef ine BUF CUA $e Pub DA ot }tgtteel. 10, timel); ae 
tee 3 vt Prhetup ey xine have "no" width 
7 Vv a 
te chémove ( ag} t(Zascii' pre~expired)'), TIME2) 
else 


CONVERT _TIME(.PTR, 17, TIME2) 
convert t ike (recbutluat$q_pwd ‘dated, 17, time3); 


ora Rieels.” 


(if {te ecbutCuat$q_pwd2.date}+0) or . (recbufCuaf$q_pwd2_date)+4)) eqi 0 


vets 
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PRINITININININ 2 
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display_full = writes the full user display 


-Jan-1985 I: 4:07 
beJan-t995 1 4 1 eis ft 


then 9 
else 17), time3); 


convert_time (Fecbut Cus ta Lastlogin_ A}. 17, timel); 
convert time (recbufluaf$q_lastlogin_nJ, 17, time2): 
peemeg Tlesttogt n, 


17; bat 


emul (Zref ( 700000) igh cput {nec} 31>), 
iret ( prety 1>'t ;}00600 efse 0), delta_time); 
convert gi Ry dete time, 13, timel 


faomac (quo 
rectal at le obs], 
-recbufCuaf$w_ fil 


-recbufCuaf$Si_bytlm 5; 


faomac ( a2 
srectut uate. _maxa 


faomac (quotas 
-recbuf(uaf$w_maxdetach), 
-recbuf(Cuaf$w_biolm), 
-recbufCuaf$i_jtquota)); 


faomac (quotas 
-recbuf uaf$w_preent). 
-recbuf(Cuaf$w_diolal, 


-recbuf uat$l “Stosent)): 


faomac (quo 
ootsb_pri), 
ua f$u_ astim), 
uaf$i— “wsquota)); 


rocket 
-recbuf 
-recbuf 


faomec (quoteé 
-recbuf(uat$b_quepri), 
-recbufluaf$w_taqcnt), 
-recbuf(Cuaf$i~ “wsextent)); 


oom | Si Coyote’. 
-recbuf uaf$w_en enqial 
-recbufluaf$i"pg (quota); 


faomac lorty 
print_priv Poleutiuatte.prisiis 


faomac (defprivs 
printapriy CrecbuiCuat$a. def_priv)); 


i i Build @ hol 44 Pe the UAF record and display the rights 
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UAF N -jJan-"9 1 4: AX-11 Bliss-32 Vv 
yOse000 display_full = writes the full user display BJan-t99s 15: 84 0 U4F .BUGSR RESUAFMAL MAIN. ise 


<c 


§ it. re exists 


rab heade 
status = 
end ; 


return .status ; 
end 


-PSECT SPLITS,NOWRT ,NOEXE ,2 


See Oe ee Oe Ge Oe Oe Oe Oe Oe Oe Se Oe Oe ee Oe Oe ee Oe Oe ee Oe ee Oe oe 


-BYTE 22 
«ASCII \No access restrictions\ 


oon 
“o—- — 
eo 
on 
ww 
oe 


P.ADL: .BYTE 70 
eASCII \Primary 000000000011111111112222 Seco\ 
4B 


eASCIT \ndary 0000000000111113111712222\ 


0469 P.ADM: .BYTE 70 
' ASCII \Day Hours 012345678901234567890123 Day \ 


— 


WD 

n> 

ee 
=< oo 


eASCI] = \Hours 0912545678901234567890123\ 


46 41 32 33 21 20 3a 65 6D 61 72 73 8 : eeCil +f 32aF Ow AC\ ; 
° rname: ! rs 3 
SUR HSA LE E HF stones a ; 
46 41 3321 20 20 3A 7% 75 6F 63 3 5 PAOGt RI, Ceccuets titer wate tae Crea ; 
#2 2% 38 8 HH do HR SG Sb 2 re ee : 
29 49 3 
43 41 32 33 21 20 20 20 20 20 3A 49 4C 48 — wtih tur '32AC Tabl AC\ ; 
@ : : ables: ! $ 
$8 BS at HE 3 3 : 
9F P.ADE: .BYTE 16 : : 
41 21 463 41 21 20 20 3a 6C 75 61 66 65 44 AO “ASCII \Default: !AC!AC\ : : 
0D P.ADF: .BYTE 13 : ; 
43 41 21 20 20 20 3A 44 4D 43 49 4&7 ; ».AD6 “peta! _—— 'AC\ ; 
41 21 20 3A 73 67 61 6C 46 20 6E 69 67 6F 4¢ “ TASCIIT = \Login Flags: !AD\ : 
DOSCF P.ADH: .BYTE 15 : 
20 20 20 20 20 20 20 20 20 20 20 20 20 OA 0 90500 “ASCII £13><10>\ \ ; 
20 20 3A 73 79 61 64 20 79 61 6D 69 7 ; i ; “ASCII \Primary days: !7(AC)\ ; 
DOSFS P.ADJ: .BYTE 21 - 
3A 73 79 61 64 20 79 72 61 of oF 6 $3 DC eASCII \Secondary days:!7(AC)\ ; 
43 41 2 iS ., : 
63 x ; ; 
6F 3 


FSSSS SSSSN AS SF SA 
Sree Sawoo 

= © 

WON 

> 


BOER VSUSS AS 


_ 
oO 
S 


131 
Pose | ) 
-742 3 
AFmatiiasoet 
$$- MAIN. 
AF .BUCSRESUAF 'AD\ 
ae 
. $:97 
1 :O1: D \ 
G-Jan-1985 15:6 8 rh: tA 3 
ee ASCH SNetwo 'AD 'AD\ 
: a C . M 
se 2 Il 'AD 'AD\ 
full u 1 CO ADO: ASC 8 ) : ! 
= the 3 3 ‘x Sit Sfocat: : 
- write mm ; wt ie : TAD est mm 
l 20 AD ; 8 : 
ful of 20 1 4 AP. E Csetuo '2UL 
: 30 % 3 ae ey te: Pude ; 
warm 1 8 8% SBR 8% REE Shen we wm 
¢) 0 ns 5 tion: nge: 
4 0 ah P, 5 ira ha 
EEE 0, the hee es : 
i 8 ated atiadhe foe weomeetie es “i 
20 20 Ge “ $8 5 A 4 2 F 3 $3 ASCII \ dlifetime: », !AD (non 
. e - 

20 46 41 $8 88 5 3 OS i aoe +4: ee & teractiv 
ath oe $1 31 30 0 % 9 %0 31 79 abt = tAD\ ta Cin tN 

ae, a 1 320 0 i oo ; 3 g wad ASCII 3B = a. ‘SUL By 
20 4 $] 1 20 6F 69 64 0 rt} 0 77 ; “BYTE “se ive)\ Fillm: : 
alae ee ao Se 8 ge 8 a y oc 1 64 sea \interact sae wae Y 

20 69 F 4 6¢ 66 6 25 6€ 20 I] $s: ‘SUL 
1 7 eg 1 74 ASC job . 

1 6D A 65 41 5 2 rf “BYTE \Max Lm: : 
“2 21 20 > 69 74 30 3A a 73 s 6 PLADV: BYTE 9UL\ ‘SUL Shrfil 3 
4c 55 3 4 $8 ay 81 0 4¢ 20 cf ey Se 2 B080¢ P. SCII \m: ctjobs: ! isn ng 

0 F rca} A xac 
Be HS 3 81 8 6 2 6 7 $1 * TASC (Re bi ial pad : 
63 6E 63 et 61 7 $¢ 33 — P.ADW: A ‘ '9UL ‘SUL Sde\ : 
1 20 é9 ie 6 sagt 4 of 20 ; iH $8 ' SCII \ ka: etach: ‘SUL 
39 és 38 6 6 os 26 36 i “BYTE \Maxd tx 23 ; 
- ot et 5 ; 6 56 35 31 eg, ree scams aon 
Sh J gees uv 
0 é 6C 55 6 t 60 ASC 5 Lm ' 
5 21 § 0 4C 6A ie 6 : os 4p . iF \Prec . Stine: : 
2 40 7; eo 3 21 20 20 35 31 gear |. <i mm 8 WSex\ ; 
0 3A 6 é 3 3 } 7 é 20 § Z : ASCII 0 ‘SUL 
26 50 Sh wha : #8 i 5 RY \ TOE tm: 
SEREES ne ier 
0 ! 9 $0 ; A 1 yg: 0: 
26 $0 33 88 $s t oF i the 72 BYTE XGuepr 
20 ? 9 mellie * 
20 2 20 i ; 4¢ rae s 
0 A 1 f 00608 
PRR RE ge ELE 
30 , 0 ép ? 0 65 
30 o 1 ' 72 7 
8 38 ¢ 5S F 69 

0 3 4c 3A 6 

33 3 20 
0 0 20 
20 2 

1 20 

35 2 


ora 
< 
Q 
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<c 


UAFP. 
v04 display_full = writes the full user display 


"Mem HO KH REED HE 
BSSUREL RED HE 


eASCII \tent: !9UL\ 
P.AEB: .BYTE 
ASCII \CPU: !13AD Enqla: ‘SUL Pgflquo: !\ 


72 65 73 75 73 69 Disuser\ 


O7ES P.AEW: .BYT 1 
65 6D 6F 63 6C 65 77 73 69 ASCII Diswelcome\ 
D7F4 P.AEX: .BYTE 


64 77 70 6E€ 65 
64 77 70 6B 63 6F 


Genpwd\ 
Lockpwd\ 


i ; : 

6C : 3 

4C ASCII \9UL\ : ; 

7% 69 72 50 20 64 65 7A 69 72 6F 7% bf werewt) Tire’ Thepeshend Rotel \ : 
? ° orize rivileges: 3 Ps 

20 8 8 8S SF GS 6 “ 

00752 P.AED: .BYTE 20 : ; 

65 6C 69 76 69 72 50 20 7% 6C 75 GI G6 d07 “ASCII \Default Privileges: \ : ; 
tle . 3 

00767 P.AEE: BYTE 0 : 

007 “BLKB : ; 

00768 P.AEF: BYTE 4 : ; 

6E 6F 0076 “ASCII \ Mon\ ; : 

00760 P.AEG: <BYTE 4 : : 

65 75 007 "ASCII \ Tue\ : ; 

64 65 0077 “ASCII \ Wed\ : ; 

0777 P.AEL: <BYTE 4 : F 

75 68 “ASCII \ Thu\ : : 

077C P.AEJ: cBYTE 4 : F 

69 72 ASCII \ Fri\ : ; 

00781 P.AEK: {BYTE 4 : : 

7% 61 ASCII \ Sat\ : : 

P.AEL: .BYTE 4 : : 

6E 75 ASCII \ Sun\ : ; 

788 P.AEM: BYTE 4 : ; 

20 20 ASCII \ \ : : 

P.AEN: <BYTE 6 : ; 

7% 69 64 75 “ASCII \ Audit\ : ; 

7 P.AEO: ‘BYTE 8 : : 

65 76 69 76 70 61 “ASCII \ Captive\ : ; 

LO7AC P.AEP: .BYTE 7 : 3 

69 6C 63 66 65 1 ASCII \ Defcli\ $ 3 

P.AEQ: TE 8 3 $ 

79 6C 7% 83 73 69 “ASCII \ Disctly\ : : 

781 P.AER: cBYTE 8 : 3 

6C 69 61 6D 73 69 "ASCII \ Dismail\ : ; 

7BA P.AES Te 11 : ; 

6C 69 61 6D 77 #65 6E 73 69 ee 47 b ge tenounett\ $ $ 
' = os e e 

74 63 65 GE 6E 6F 63 65 72 73 69 ASCII Disreconnect\ 3 3 
704 P.AEU: :BYTE 10 : ; 

74 72 6F 70 65 72 73 69 5 ASCII Disreport\ : g 
fF P.AEV: ‘BYTE : ; 


. 
> 
n“” 
ao 
Tem 
= 
Seti. Let Petal tlh") thd ated tel atl 


~ 
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VO6e000 display_full - writes the full user display be Jon-19¢s 15384 ‘% UAF .BUGSRC JUAFMAIN.B32;1 


64 65 72 69 70 78 65 SF 64 77 50 20 i sti };°¥d. expired\ 
65 72 he $3 ie 2 S ig $3 3h 24 29 26 29 i P.AFB: ASELI \ sion m= + 


-PSECT SOWNS ,NOEXE ,2 


00000000" 00000000" &4900000" 00000000* 00000000* 00000000° 0108C¢ FLAGS_vECTOR: 
-ADDRESS P.AEQ, P.AEP, Ay AEY, P.AEO, P.AEV, 


00007900" 00000000' 00000009" 00000000' P.AEW, P.AES, Ane P.AEX, P.AEZ, P 
Gooa0o00* So000000" $1 ec nice RMN: PLAEUS PZAET 

USERNAME = P.ADB 
ACCOUNT= P.ADC 
CLI_TABLE= P.ADD 
DEF AULT= P.ADE 
LGICMD= P.ADF 
FLAGS= P.ADG 
FLAG_PAD= P.ADH 
PRIMBAYS= P.ADI 
SECDAYS= P.ADJ 
NORESTRICT= P.ADK 
ACCESSHDRI= P.ADL 
ACCESSHDR2= P.ADM 
NETACCESS= P.ADN 
BATACCESS= P.ADO 
LOCACCESS= P.AD® 
AACCESS= P.ADQ 
CCESS= P.ADR 
EXPIRATION= P.ADS 
PWODATA= P.ADT 
LASTLOGIN= P.ADU 
QUOTAI= P.ADV 
QUOTA2= P.ADW 
QUOTA5= P.ADX 
QUOTA4= P.ADY 
QUOTAS= P.ADZ 
poe AL P.AEA 
QUOTA7= P.AEB 
PRIVS= P.AEC 
DEFPRIVS= P.AED 
NULLST P.AEE 
MON= P.AEF 
TUE= P.AEG 
WED= P.AEH 
THUS P.AEI 
FRI= P.AEJ 
SAT= P.AEK 
SUN= P.AEL 
NODAY= P.AEM 

CPUTIME= RE CBUF +556 


-PSECT SCODES,NOWRT,2 


AFA, = 


14 
UAF RAIN -Jan-1 
V06~000 display_full = writes the full user display B-Jan-19 


| goog eS tint 


if ' A) 


18: 


LASTSRSSPSSSEAAE 


> 


-\o 


- 


ees 


_s 


+40 oe 


SOOO” 


Be 15:69:90 


OFFC 00000 DISPLAY_FULL: 
.WORD 


AX-11 Bliss-3 


,R 
§ ; #32, RECBUF +4 
=32(R0), R2 

MATCH _TOKENLEN, R4 
PAGSAAT CH NAME 


#1, FOUND MATCH 
udeis 


1, SYSS$PUT 
USER atten 
EC UF Be F 


DISDSC 


#34, RABPTR, -(SP) 
bee SYSSFAO 
RABPT 


AODSC 
ACCOUNT+1, FAODSC+4 
. CBUF +36, RO 
R 
RECBUF +52 
Pit: 


DISDSC 
#34, RABPTR, -(SP) 


FA 
#7, SYSSFAO 
RABPTR 
#1, SYSSPUT 
CLE_TABLE, FAODSC 
Ul T 8 ba" FAODSC+4 
RE CBUF + 

308¢ 
#34, RABPTR, -(SP) 
#5, SYSSFAO 

ABPTR 


SYSSPUT 
DEFAULT, “AODSC 
DEFAULT+ 1 FAODSC +4 

+14 


UAF .BUGSRC JUAF MAIN.B32;1 


3674 


Ct ot 


display_ful! = writes the 


7E 00000000' 


7E 00000000' 


44 AE47 00000000° 


44 AEG7 01 


7E 00000000° 
000000006 


JUUUUUUUG 


SAAAAAAL 


SAnAAAAD * 


09 00000000" 


09 00000000" 


A 00000000°0049 


ww 
ooouowon— 


full user display 


i 
; 
FB 


~ 
can wo 


RNONOO 
ooo"— 


& 


IRIS MIR oMeOCwO no 


PASSSEASS Seow 
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WH MMMMOCGVTIVOOMO 
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oe 
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=RF 


od 


"Ovi oon 


SSZRR Se 


sam 


5 17:26:07 AX-11 Bliss-32 V4.0-742 
8 15:61:96 UAF BUESRe UAF MAIN.B32;1 


DISOSC 
a RABPTR, (SP) 


+4: SYSSFAO 


J 
J. ,RECBUE +468. 48 
FLAGS VECTORCJ3, FLAG_STRING 


(FLAG STRING), RB 

L COUNT R 

RB, #86 

3$ 

FLAG_PAD, R8 

~ » FLAG_PAD*1, STRINGCCOUNT) 
ins LCOUNT 

(FLAG_STRING), RO 

RO, 1TFLAG STRING), STRINGCCOUNT) 
(FLAG STRING), RO 

RO, COUNT 

(FLAG STRING), RO 

Ro LCOUNT 

asi, J, 2 

R11, FAODSC 

FLAGS*1, FAODSC+4 

STRING 


D1 SDsC 
#34, RABPTR, -(SP) 
FAODSC 

#5, SYSSFAO 
RABPTR 


a 


a RO 
#5, eccey ests, 7$ 
ROOAY Rr 


<c 


ete ee Ge ee See Se Oe Se Oe Se Oe Se Oe Se Oe Se Oe Be Se Oe Se Oe Oe Se Be Se Oe Se Se Set 
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UAF MAIN -Jan=1985 17:24: AX=11 Bliss-32 v4.0-74 p 
¥06~000 display_full = writes the full user display Bo Jan-t9 153 84 % UAF BUGSR {Suarmatnce so.) aoe 136 
50 00000900" 9E OOCAF zs: MOVAB SAT, RO ; 
09 00000000" Be BBC’ BG, RECBYFSSIA, 98 
98 00000000° ; BOVAB BAY, RY ' : 
50 00000000' 9 8: ROVAB FRI, RO F 
09 00000000' D BBC RECBUF¢S14, 11 : 
98 00000000° DA MOVAB - 8 : 
31 BRB 12$ F 
50 00000000° bk 11$: ROVAB THU, RO : 
09 00000000° . co fee #2, RECBUF+S14, 138 : 
98 00000000' re MOVAB NODAY, RO : 
50 00000000° FD 13$:  MOVAB WED, RO : 
09 00000000" Be 8! Bact Ft, recauresis, 158 
98 00000000° MOVAB NODAY, RO 7 : 
1 BRB 16$ : 
50 00000000° 17 15$:  MOVAB TE. RO : 
9 00000000° 20 ee cowesic. irs : 
83 Sbosno0" ROVAB NODAY, RO” : 
50 00000000° 17$: MOV MON, RO : 
18$:  PUSHL RO : 
00000000' 9 PUSHAB DISDSC : 
7E 00900000' F ADDL3 #34, RABPTR, -(SP) 8 
00000000° 47 PUSHAB FAO : 
000000006 4D CALLS #10, SYSS$FAO : 
00000000° 24 PUSHL RABPTR ; 
00000000 A CALLS : 
10000000" 90000000" 61 RovZeW SECDAYS. FAODSC 
00000 4 4 £ MOVAB ; Cpayest Ay tah Po 3 
09 00000000" BBC ,, RECBUF #514, ; 
00000000' 7F eevee » RO : 
50 00000000° 19$:  MOVAB DAY, RO : 
09 00000000" ; ena: Oe i RECBUF+S14, 218 
30 00000000" 99 MOVAB Af, RO ‘ 
50 00000000" i gis: MOVAB DAY, RO : 
AD 228: PUSHL R 3 
09 00000000° 90 AB BBC #4, RECBUF+514, 238 : 
00000000" + ROVAB FRI, RO ; 
50 00000000° 338 MOVAB DAY, RO ; 
C3 248 PUSHL n ; 
09 00000000° 99 ¢ BBC #3, RECBUF+514, 25$ ; 
00000000° CD ROVAB tH JR 
50 00000000° D6 35 MOVAB DAY, RO ; 
DD 26$ PUSHL R : 
09 00000000' 09 DF C 8 RECBUF +514, 27$ : 
50 00000000' £7 MOVAB WED, R : 


<c 


OO 


ao 


N 14 
UAFMAIN -Jan-1985 17:24:07 AX-11 Bliss-3 4.0-74 P 7 
VO6~000 display_full = writes the full user display Satta 15:84:96 UAF BUGSRESUAFMAIN BOos1 aoe 33} 
7 11 OO3€ BRB 28$ F 
50 00000000' 9E i 37 :  MOVAB DAY, RO : 
09 00000000° FT O03) BBC’ BT, RECBUFSI4, 298 
98 00000000' 9 5 401 ROVAB , RO / ; 
50 00000000' 9E Oh 98: MOV DAY, RO : 
9 00 : BS Bocis oat Be’ ORECBUFSSIG. 318 : 
98 ittittt ee O41) MOVAB ’ : 
50 00000000° 9E 004 : 313: MOVAB DAY, RO : 
D 0040A 32$:  PUSHL R : 
00000000° F 004 ¢ PUSHAB DISDSC ; 
7E 00000000" 00 1 04 ADDL3 #34, RABPTR, -(SP) : 
00000000° F 0043A PUSHAB FA : 
000000006 00 A FB 0440 CALLS #10, SYSSFAO ; 
00000000" 00 DoD 0044 PUSHL RABPTR : 
990000006 00 1 FB 0044D CALLS #1, SYSSPUT : 
52 00000000' 00 4 454 ADDL3 #34, RABPTR, R2 : 3738 
00000000" 00 1E 8 45¢ SKPC #0 #30, RECBUF +472 : 3735 
12 00464 BNEQ 33 ; 
D4 0466 CLRL = sRY ; 
3) 05 4 33$ TSTL R1 3 
. B 12 0046A BNEQ  34$ : 
00000000' 00 00000000' 00 96 46¢ MOVZBW NORESTRICT, FAODSC : 3738 
00000000' 00 9900009 ' 00 9E 004 OVAB NORESTRICT#+1, FAODSC+4 : 
0000000' OF O4Be PUSHAB DISDSC : 
pp 04 PUSHL : 
00000000' 00 9F 0048A PUSHAB FAODSC ; 
000000006 0 FB re CALLS #3, SYSSFAO 3 
00000000' 00 DoD 0049 PUSHL RABPTR : 
000000006 00 1 Fe 9D CALLS #1, SYSS$PUT F 
0005 ; 4A4 BRW : 3735 
0000000° 00 00000000' 00 98 O4a7 34$ MOVZBW ACCESSHDR1, FAODSC : 3742 
0000000' 00 0000 000° 9E 00482 MOVAB ACCESSHDR141, FAODSC+4 F 
0000000' 9F 0048 PUSHAB DISDSC : 
pp 4C PUSHL 3 
00000000' F 004C USHAB FAODSC : 
000000006 FB 004C CALLS #3, SYSS$FAO ; 
00000000° DD 0040 PUSHL RABPTR ; 
00000006 1 FB 004D CALLS #1, SYS$PUT : 
0000000' 0000000' 9B 004DF MOVZ2BW ACCESSHDR2, FAODSC : 3743 
0000000° 0 0 0° gE EA OVAB ACCESSHDR2+1, FAODSC+4 ; 
' F OO4FS US DISDSC ; 
7E 00000000' 0 a Oar ADDL3 #34, RABPTR, -(SP) ; 
00000000' F 5 obsc ; 
000000006 FB CALLS #3, SYSSFAO : 
00000000° DD 00510 PUSHL RABPTR : 
000000006 00 1 FB 00516 CALLS #1 SYS$PUT : 
90000000" i 1 SHAB RECBUF+47 > 3745 
' F PUSHAB NETACCESS : 
00000000v 00 FB CALLS # DISPLAY HOURS F 
99990000" 3 PUSHAB RECBUF+478 : 3746 
00000' F PUSHAB BATACCESS : 
00000000v 00 FB ¢ CALLS #2 DISPLAY_HOURS ; 
00000000° 9F 0054 PUSHAB RECBUF +484 : 3747 


display_full - writes 


00000000v 
00000000v 


00000000v 


0000 000V 
0000000' 
00000000° 


00000000" 
000000006 
000000006 


00000000v 
FFFFFFFF 
FFFFFFFF 
00000000" 


00)060000v 


7E 00000000° 


00000000' 


Reel 


00000000" 
28 


00000000’ 


0000000' 
00 0 


0000000" 


7E 00000000' 
7E ~ecntceas | 


00000000' 
00000000" 


9 00000000' 


28 
00000000" 


50 00000000° 
8F 


04 


the fu'l user display 


OQOoonvo—-rOOCOCOCOCO-—>r> 
Oo NONMO—-MOOOCOWO— MNO 


AE 


NSSRIR=SA 


Be 15:61:10 


LOCACCESS 


SDOOQOOOCOCOCOCOCSOOOOOOOSO OOOO OOOOOOoOO 
QOCCCOCCOC COCO OOCOCOOCOOOC OOOO OOOOoOOoO 
Ab Ab db Ab Ab Ab db Ab Ab Ah Ab Ab Ab db db Ab Ah Ab Ab Ab Ab Ah Ah Ab Ab db dh Ah Ah dh al 


Oooo 


PESTS SS EESEEESSRRRAR RAR DRAR DAA > O000000 III OI 
DOM OO POD OP FDO AOS I MOOD NS OAD RD ae Oe ORO 


OH 9 $9 ON OT ONT NOM OSD OOWOO™"DOTOTNOO"DOO"DO 
FON ND MO "WOW -"OFNPOMIWI "OW OO 


SSS 


& 
RECBUF 
DIAACCESS 
r) 

RE CBUF 


REMACCESS 
#2, DISPLAY_HOURS 
TIME? 


#17 
rs eg Ate 
#5, CONVERT _TIME 


AX-11 
UAF .BU 


DISPLAY HOURS 
+490 


E 
DI SEL AY HOURS 
+496 


V4.0-742 
MAIN.B32;1 


C 
RECBUFS396, <(5P) 


RE CBUF + 
TIME} 
#17 
DISDSC 


#34, RABPTR, -(SP) 
FAODSC 

#7, SYSSFAO 

#1, SYS$PUT 

TIME? 

#10 

RE CBUF +372 
5 
gs 

(PTR), | 

#17, P.AFB, TIME2 
37$ 


‘ Sw 
RE CBUF + 
(PTR), # 


TIME2 
#17 


PTR 

#3, CONVERT_TIME 
SP 

#17 

RE CBUF +388 


Osc 
PWDDATA*1, FAODSC +4 


62, -(SP) 


Pp 
Gg csur +s82. RECBUF +388, RO 
38$ 


& 
DISDSC 


#54, RABPTR, -(SP) 


Cee eee ee ee Oe Oe Oe ee Oe Oe Oe Be Be Oe Oe Be Oe Oe Oe Oe oe oe Pee Se Se Se Se Ge Se Se Se Be Se Be Se Se Se Se Se Se Ge Be Fe Se Se Se Ge Se Se Se Be Be 
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(27) 


3748 
3749 


3752 


3756 


3758 


3759 
3766 


3761 
3763 


3764 


3770 


Dee Se Oe He Oe ee Oe Be Oe Oe Oe Oe Be Oe Oe Se Be Se Se Oe Se Se Se Se Se Oe Oe ee we Be Oe OH Se Oe See Be Oe ee Oe Oe Oe Oe eae Oe Oe OHHH SE Se Se Se ee ee 


00000000' 
000000006 00 


000000006 00 


00000000v 00 


BMS ROW ROH OVONO—mM = MOoRO=MASo MoS SO 


BDO@ A —SADORSDOS A AAAOMSD HO ADF 


> 


Ss 


a. 


2s 


>¢ 


>_>. + 


++ 


>. ?. 


UAFRALS ; 
Vv04 Gisplay_full = writes the full user display 


NN 


ANS SN NNN 


LLL LEASES PPPS AND OSSD S-G 


we VRS ee SSRs enw 


oo 


SSELSFAS 


o 


15 
bJan-19 5 17: 


“Oct-19 


oe 
oe 


13: 0 UAF .BUGSRC JUAFMAIN.B32;1 
Pus FAODSC 
CALLS #9, SYSSFAO 
PUSHL RABPTR 
CALLS #1 SyssPuT 
Pus TIRE 
PUSHL #17 
PUS RE CBUF +396 
CALLS #3, CONVERT _TIME 
PUS TIME 
PUSHL #17 
PUS RE CBUF +406 
CALLS #3, CONVERT_TIME 
MOV7BW LASTLOGIN, FAODSC 
MOVAB LASTLOGINGT, FAODSC+4 
PUSHAB TIME 
PUSHL #17 
PUSHAB TIME1 
PUSHL #17 

SHAB DISDSC 
ADDL3 #34, RABPTR, -(SP) 
PUSHAB FAODSC 
CALLS #7, SYSSFAO 
PUSHL RABPTR 
CALLS #1, SYS$PUT 
EXTZ7V #1, #31, CPUTIME, R1 
8. BC CPUTI 40$ 
mOVL #-100006, RO 
BRB 41$ 
CLRL SséRO 
EMUL #200000, R1, RO, DELTA_TIME 
PUSHAB TIME 
PUSHL 3 
PUSHAB DELTA TIME 
CALLS CONVERT _TIME 
ROV7BW TAl, FAOBSC 
MOVAB QUOTAI41, FAODSC+4 
PUS RE CBUF + 
MOVZWL RECBUF +536, -(SP) 
MOVZ2WL RECBUFSS18, -<SP) 
PuS b{SDSC 
ADDL3 RABPTR, -(SP) 
Pus SC 
CALLS #6, SYSSFAO 
Pus 


34:07 ny Bi iege se v4.0-742 
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age 33 


<c 


; 3772 


: 3773 | 


ee 


3776 


778 
779 


: $780 


3785 


: 3790 
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: 3795 


15 


140 
=Jan-1985 17:26:07 AX-11 Blisg-32 V6 00762 Page 140 
yOs-000 display_full = writes the full user display meet 13:89:95 {UAF .BuGsRe UAFMAIN.B32; 
00000000" 00 3 Rit ROVAB ete FAODSC +4 
*: , ~(SP) : : 
: i ih REIS. co : 2 
2 F 90801 PUSHAB D[SDSC ; ; 
00000000" 00 1 00807 ADDL phe RABPTR, -(SP) : ; 
te F 0080 PUSHAB FAOOSC ; ; 
000000006 00 FB 00815 CALLS #6, SYSSFAO ; ; 
DD 0081 BUSHEL RA wee ; ; 
98 008 noview QUOTAS F : 3800 
SEODR" i 3 d0 MOVAB QUOTAG+} | FAODSC 4 : 
e s ; 
a I on : : 
i C 008 ROVZWL RECBUF + $f. -(SP) : 
00000000 1 0855 ADDS oh RABPTR, -(SP) : ; 
“ ae + 10861 HAB FAOOSC : ; 
000000006 09 rg 00867 CALLS #6, SYSSFAO ; ; 
is) DOF : 
69009000 be RoR re ROVZBU QUSTAS. FADDSC ; 3805 : 
a bs B's Hh ROVAB QUOTA s}uqhsonsen : 
HORS HL o s : 
. ~(SP) j : 
ire || re Sine eh <i : : 
ws F OOBAS PUSHAS DISDSC ; ; 
th O68 DL3 ph RABPTR, (SP) ; : 
- nggumencn:: pa ge PUSHAB FAOBSC : ; 
000000006 00 pe ooh CALLS Bs, Systran : ; 
fe peace Roview QUOTAS. FAO : 3810 : 
20000009" i M DORE ROVAB QUOTAGS FAODSC +4 ; ; 
C 008 MOVIOL RECBUFSS30, =(SP) : : 
i A O08F( MOV ZBL pianse 17; =(SP) 
7E 00000000" 00 ¢ d08Ff ADOLS, #34. RABPIR, ~(SP) 7 
000000006 00 FB d09¢ CALLS 8G, SYSSFAO 
FB 00918 CALLS a1 SYSSPUT eens 
GO000000" i e 80924 ROVAB QUOTA7$1, FAODSC+4 ; ; 
; ; : 
nf RE, Mo : | 
i PUS Time ; 
fi PUSHL #13 ; 
oF * ADD 1 Yate Peer -(SP) ; ; 
7E 00000000" 00 1 005 ADDLS 8 S } ; 
000000006 00 FB 005 CALLS 87, STSSFAO 
aie Bite ca] 
Go3s0008" #8 90000000 f 505 A ROVAB PRIVS*1, FAODSC+4 : : 


15 
UAFRAIN ~Jan-1985 17:26:07 AX-11 Bliss- 0-742 P 141 
YO6~000 display_full - writes the full user display -Oct- 3h 15:84:90 UAF .BUGSRC JUA -832;1 oF 27) 


9F 5 PUSHAB DISDSC : 

7E 00000000" 00 g 98 ADDL ‘ _tsrre. (SP) : 

000060006 00 FB 00996 CALLS «#3 $¥SSF AO : 

DD 005 PUSHL RABPTR ; 

000000006 00 FB OO9A6 CALL #1, SYS$PyT : 
9F 009 SHAS Re CBUF +41 : 3818 

F > CALLS i, PRINT_ ; 
: 09 MOV 7B DEFPRIVS FAODSC ; 3820 

‘ 09C ROVAB D FPRIVS+1, FAODSC +4 ; 

7E 00000000" 00 §} 00906 ADDLS Ai RABPTR, -(SP) : 

9090 PUSHAB FAODS ; 

000000006 00 Fe DOSES CALLS #5 S1SSFAO : 

000000006 00 FB OO9F CALLS #1. SYS$PUT ; 
9F OO9F8 Re Cur +6 ; 3821 

00000000v 00 Fe 005 CALLS #1. PRINT PRIV F 
900000006 08 FS OOn ets nos" UaF david -nouoeR : 37 
000090006 00 90 Al MOVE #1, RDB_HEADER_FLAG > 3831 
9F OOAIA PUSHAB HOLDER > 3832 

000000006 00 FB O0Az0 CALLS #1, UAFSWRITE_RIGHTS : 
04 00A27 428: RET : 3836 


; Routine Size. 2600 bytes. Routine Base: SCODES + 1608 


<c 


Be Se Se Se Se Se Se Oe Oe Se Oe Se Oe Oe Oe Oe Se Oe Se Oe Oe Oe Oe Oe Oe Oe Se Oe Oe Oe Oe Oe Oe Oe ee Oe ee OH Oe Oe Oe Oe Oe 


fF 15 
-Jan-1985 17:36:07 AX-11 Bliss-32 V4.0-7462 Page 142 
Gisplay_hours - display hourly restrictions “0c t-1984 13:01:70 UAF .BUGSRC JUAFMAIN.832;1 (28) 
1 Bsbtzl ‘display_hours - display hourly restrictions’ 
1 rout ine display-hours (format_string, hour_vector) : novalue = 
fn 

‘ee 

' 

i FUNCTIONAL DESCRIPTION: 


Displays the hourly access for primary and secondary days 
for one access type. 


INPUTS: 
format_string: address of FAO string for display 
hour vector: address of UAF record hourly vector 
RABPTR = RMS data structure for the file 
IMPLICIT INPUTS: 
none 
OUTPUTS: 
none 
IMPLICIT OUTPUTS: 
none 
ROUTINE VALUE: 
none 
SIDE EFFECTS: 
none 


lee eee ee ee oe te oe te te te te ee 


: Display strings. 


hour_vector : ref bitvector; 


; Literal 

; yeschar = ‘sr, 

; nochar s *e'; 

; bing : 

; noaccess = cstring (‘=---- Wo access <------"), 

; fullaccess = cstring ('#eese@ Full access ##asee'); 

— i ector (24, byte ' Character string for primary acces 

: ri_access iv ° ° : 

: Sec eccess : vector £S¢: byteJ; ! Character string for secondary ac ess 


ec 


15 
UAF “Jan-1985 17:24:07 AX-11 Bliss-32 v4.0-742 
v04 displey_hours - display hourly restrictions “Oct-19 15:89:95 UAF .BUGSRC JUAFMAIN.B32;1 
bd cs ( vector(0})<0,24> egi O. 
RBeote (se. ful biessss *t. op itt 
shee rove zvector 5<b.2 24>” tat tttttt’ 
then late e (2g, g carggee™’ pri_access) 
elise incr r. erent 
do 
oo x ey catcesst: F 
then pri_access = nochar 
te pri_ access = yeschar; 


9 a we al _vector(0))<24,246> A ae 
pen 6 Saove (26, full logs sec_access) 
else f. Chour. vector Fe8e, 34 4> egl Ix'fttttt 
hSmove (2%, grneegeee + Se@c_access) 
yh ner from 0 


mee , vector aes 
then sec “access = nochar 
a sec_access = yeschar; 


faomac (.format_string, 
4, pri_access, 
4, sec_access 


vuvuwv 


-PSECT SPLITS,NOWRT .NOEXE ,2 


73 65 63 63 61 20 es 4e 20 20 20 20 20 20 E P.AFC: BYTE a6 is ee ac : 
Be eee AERA ESE ; ae 


24 
«ASCII \@e### Full access ##eeee\ 


P.AFC 
PULLACCESS= P.AFD 
-PSECT SCODES,.NOWRT,2 


O1FC 00000 DISPLAY_HOURS: 
WORD Save R2 R3, Rs .RS.R6,R7_RB 
ROVAB rabbee, Essé1, Ra° 


CTOR 
: nec eng #0 
#24, FULLACCESS*1, PRI_ACCESS 


teil 
ats Meee 


> 


SUNTSORA 
2 


Poe ae 
wrin 
PEE EE 
oO 
had 
Peete Se Ge ee Ge ee ee 


r= 


| UAF MAIN a SP 5 17:26:07 AX=-11 Bliss-32 V4.0-762 P 144 | 
y06~000 display_hours - display hourly restrictions 5 3h 15384390 SUAF MAIN. B32: 1 ot 


-Oct-1 UAF .BUGSRC (28) 
OOFFFFFFE 8F 66 18 CMP ZV » #24, (RO), #16777215 : 38% 
18 AE Ee? a8 i ROvCS #24, NOACCESS*1, PRI_ACCESS : 3897 
D4 CLAL + 3898 
07 66 1 BBC J, (R6), 48 : $01 
18 AES 90 00% nove #65, pri_access(u) ; 3902 
18 AES 29 00 MOVE #35. PRI ACCESSCJI : 3903 
EC 5 F AOBL EQ #23, J, 38 : 3898 
50 66 1 1 F EXT2V eh, #24, (R6), RO : 3906 
6E 68 : y MOVCS #¢4, FULLACCESS+1, SEC_ACCESS ; 3907 
OOFFFFFF © aF D5 90 CMP RO, #1677215 ; 3908 
6E E7 AB ‘ 24 \ MOVC3 #26, NOACCESS*+1, SEC_ACCESS : 3909 
1 )0¢ bRB 128° s 
50 4 CLRL : 3310 
51 18 OA oe MOVAB (RO) RI : 391 
06 1 BBC (R46), 108 : 
6E4 D 60 nove tt ec *ACCESSLJ) > 3914 
6E40 3 90 MOVB . sec ACCESSCJ) : 3915 
EA 50 F AOBLEQ : 3910 
6 0 BC 98 mov? Sind STRING, FAODSC : 3921 
06 a7 06 ac 01 ci ADDL S fl. FORMAT_STRING, FAODSC+4 : 
#1 D PUSHL #24 : 
20 F PUSHAB PRI_ACCESS : 
is D PUSHL #26 : 
FB OA?sOMF PUSHAB DISDSC ; 
7€ 08 aA? i ch ADDL S #34, RABPTR, -(SP) 
000000006 00 7 FB CALLS #7, SYSSFAO : 
08 A? OD PUSHL RABPTR ; 
000000006 00 01 FB CALLS #1, SYS$PUT ; 
04 RET : 3922 


; Routine Size: 178 bytes, Routine Base: SCODE$S + 2103 


a 


1§ 
UAFMAIN =Jan-1985 17:24:07 AX-11 Bliss-32 V4.0-742 
V06~000 convert_time - convert time value to string “Oct-19 15384590 {UAF -BUGSRE UAFMAIN.B32; 1 


923 1 Zsbttl ‘convert_time - convert time 


“ ue to yy hen 
rout ne convert_time (t ue = 
begin 


val 
me, length, buffer) : nova 


SOUS 


es 
' 


i FUNCTIONAL DESCRIPTION: 


Converts the ptnery time value into a string, substituting 
the string “’ (none)"’ if the value is zero. 


INPUTS: 


: time: address of quadword time 
: poomens length of output string 
} buffer: address of output buffer 
{ IMPLICIT INPUTS: 
none 
! 
; OUTPUTS: 
' 
' 
IMPLICIT OUTPUTS: 
' 
' 
' 
! 
' 
a 
' 
4 
' 
95 ! 
960 
961 map 
4 time ref vector; 
96 
964 loca 
965 


NAVINI OL 
Me uwTr— 


iii ppt ttt act a: 


none 


LLL LL LLLP 90000505605000000 
VEWN =O OBNOUE WIN =O 


SLIS SSS See Pe SSeas 


By) sm 
93 i ROUTINE VALUE: 
95 i none 
: 95 : 
89 3 ' SIDE EFFECTS: 
: 95 i none 


Sesz 


string_desc : vector (2); ! descriptor for buffer 
if (.timel0O) or .time{1]) eql 0 
then 
begir. 


chdfiit (° °, Wt th-6, buffer); 
chSnove (6, uplit byte (*inone)'): .buffer+.length-6); 


EEE 
See 


911 3 

at 97 

91 974 else 

914 975 begin 

915 ide str'ing_desct 0) = . length; 

316 97 tring_des = .butfer; 

a4 ide sctim (timadr = .time, timbuf = string_desc); 


ao 
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UAFMAIN =-Jan-1985 17:26: AX-11 Bliss-3 -74 P 4 
¥06~000 convert_time = convert time value to string be Jonnigts 15: 8 '% UAF -BUGSR fSuarmatn W580 age 395 
; 3919 3980 1 end; 


-PSECT SPLITS,NOWRT ,NOEXE,2 
29 65 6E 6F 6E 28 00866 P.AFE: . ASCII \(none)\ 
sEXTRN SYSSASCTIM 
-PSECT SCODES,NOWRT,2 
007C 00000 CONVERT_TIME: 


He save R2,R3,R4,R5,R6 3; 3924 
5E 08 ¢ 2 SuBL2 «#8, SP : 
4 06 ac D MOVL TIME, R6 + 3967 
50 46 06 AB C BISL3 4(R6S, (R6), RO : 
1c 1 BNEQ =:*1$ : 
50 08 ac 06 : 1 SUBL3. #6, LENGTH, RO + 3970 
50 20 6 ae C 9015 movcS #0. (SP), #32, RO, aBUFFER : 
50 oc AC 08 AC 1 if ADDL LENGTH, BUFFER, RO ; 3971 
FA AO 00000000" 00 06 28 000 move #6, P.AFE, =-6(RO) Faas 
6E 08 ac 1$: mova LENGTH, STRING_DESC : 3976 
7E 04 CLAL (SP) : 3978 
56 DD PUSHL 6 ; 
08 AE OF PUSHAB STRING. DESC ; 
7E D4 7 CLRL 0s =( SP) ; 
000000006 00 04 FB 00039 CALLS #4, SYSSASCTIM ; 
04 00040 RET : 3980 


; Routine Size: 65 bytes, Routine Base: SCODES + 2185 


Bete Fe Ge Se Se Ge Be Ge Se Ge Se Se Ge Ge Se Se Se Be Ge Se Se Se Ge Se Se Se Se Ge Se Ge Se Se Ge Os Oe Be Be Be Se Oe OE Oe Oe Oe Os Be Oe Be Oe Be Oe Os Os Os Bee 


Kk 15 
UAF MAIN -Jan-1985 17:26:07 AX-11 Bliss-32 v4.0-742 Pa 47 
yOe000 print priv = print privilege bits ets 13364390 UAF .BUGSRC JUAF MAIN.B32;1 ne ) 
; 3921 981 1 Xsbttl ‘print_priv - print privilege bits’ 
; 39 ¢ 9 § 1 fous ne print priv (preadr)’s nevelue = 
: 39 9 begin 
; 3926 9 
; ; 5 ; 5 hed 
; 3 5 3 i FUNCTIONAL DESCRIPTION: 
: 39 5 9 i Routine to output the names of the privilege bits set 
3 ; : 144 in the privilege vector supplied. 
; 936 996 i INPUTS: 
: ; ¢ Boe PRVADR = Address of the privilege vector 
: 39 i IMPLICIT INPUTS: 
; 39 99 ! 
3 4 : 4 PRVSAB_NAMES - table of privilege names and bit numbers 
; 940 4900 t QUTPUTS: 
Or ae 
: 3944 4004 2 | IMPLICIT OUTPUTS: 
: 3945 4005 ! 
or ie 
; 968 4008 i ROUTINE VALUE: 
0 Se | Rice 
: 93¢ 41g i SIDE EFFECTS: 
: 3954 4014 2: none 
Be BRE 
: 395 401 
3; 395 s3i8 local 
; 395 4019 pointer, ! current Location in PRVSAB_NAMES 
3; 3960 4020 prvcnt, ' number of names in DISBUF 
3; 3961 4021 symlen, ! Length of bit name stri 
: 386 4 § Symain, ' miniaua -— Length 
: 396 40 symval; ! value (bit number) 
i $968 1058 § 
; 966 40 6 i Initialize the buffer. 
: 396 ? ! 
: He 4 disbuf = * '; ' insert blank at start 
; 3970 4 prvcnt = 0; 
: 3971 4031 2 rabptr(rab$w_rsz) = 1; 
: df ? § pointer = prvS$ab_names; ! point to symbol name table 
: 3974 4 while (symmin = . (.pointer)<0,8>) neq 0 ! pick up min symbol size 
; 3975 4035 do 
3; 3976 4 begin 
; 3977 4 


UAF RAIN -Jan-1 17:26: K-11 Bliss-32 V4.0-742 Pa 48 
¥06-000 print_priv = print privilege bits b-Jona19es 153 63 ‘% re BUGSRC JUAFMAIN.B32;1 9 155 


; 397 4 ’ 

; 39 4 ' Pick 4 the next bit name and ay 2% If the bit is set, insert 
; 39 4 : the bit name into the buffer. When the buffer fills up output them 
; 3981 4 ' to the user. 

; 39 ¢ 4 § ! 

: rh PA i inter +1 

: nter = .pointer + 

>; 3985 4045 Syaval = . pointer) <b, 8>; ! get bit number 

3; 39 4 § pointer = "spointer + 1; 

: 39 404 symlen = . (.pointer)<,8>; ! get name string length 

; 39 i308 eginter = .pointer + li, i point to string 

: 39 ope oe Fat SymceNe «POI 

: 4050 AND “C nih INTER, 7, UPLIT(*UPGRADE*)) lee 
: 3991 4051 AND C Q(:SYMLEN. .PO INTER, 9, UPLIT(* DOWNGRADE ')) 'ee 
3 336 1026 AND CNSNE GC: SYMLEN, .POINTER, 6, UPLIT(' TMPUNL' )») ‘ee 
; 399 405 AND CHSNEQ(. SYMLEN, “POINTER, 6, UPLIT(*PRMJNL')) !en 
3; 3994 4054 then 

; 3995 $h22 ? begin 

3 399 rittg 4! 

3 be 4058 4 ! Bit is set. See if there's room in the buffer and insert it if so, 
; 3999 4059 4 : else output the buffer and start from scratch. 

; 4000 4060 4! 

; 4001 4061 4 

; 400 1066 & if .rabptr(Crab$w_rsz] + .symlen geq 64 

; 400 4065 4 then 

3; 4004 4064 begin 

; 4005 4065 Spat (rab = .rabptr); 

: 4 4 prvcnt = 

: 400 406 rabptrCrab$w. rsz) = 1; 

3 4 4 4 end; 

3; 4 4069 4 

; 4010 4070 4! 

3; 4011 4071 4 ! Insert a blank and append symbol name. 

; {oi8 4072 4! 

; 401 4075 4 

3: 4014 4074 4 bd ay 5 abtursed =: rsz)) = ichar (' 3 

3; 4015 4075 4 rppetr r rsz TrabptrCrab$w_rsz) + 

: 4016 4076 4 -symlen, .pointer, disbufl.r Fapptrbrabs_ rsz))); 

: 401 4077 4&4 wees: BY, _rs2zJj = -rabptrCrabSw_ rs2z -Syml 

: 4018 4078 4 prvcnt = .prvcnt + 1: lone were heme fe buffer 

: ret ? 79 end; 

; 4021 4081 pointer = .pointer + .symlen; ! update table pointer over name 
3: 4 ; 4 ; end; 

: 2054 ¢ ; 

; 40 5 4 5 2! Table used up. If anything is in the buffer, print it. 

: 2059 é 

; 40 3 4 -prvcnt gtr 0 

3 $8 : hen Sput (rab = .rabptr); 

3; 4031 4091 end; 


en 


415 


UAF MAIN =Jan-1985 17:24:07 AX-11 Bliss-32 V4.0-742 Page 149 
V06~000 print_priv = print privi'ege bits et F 15:84:% {UAF -BugsRe UAFMAIN.B32;1 9° 30) 
-PSECT SPLITS,NOWRT,NOEXE,2 
00 45 44 41 52 47 #50 55 8 $f P.AFF: .ASCII \UPGRADE\<0> : 
00 00 00 45 44 41 52 47 4E 2f SF 44 P.AFG: .ASCII \DOWNGRADE\<0><0><0> $ 
4C 4E 4A 50 3 28 0 $0 P.AFH: .ASCII \TMPJNL\<0><0> : 
4C 4€ GA 4D 5 0 00 P.AFI: .ASCII \PRMJNL\<0><0> : 


-PSECT SCODES,NOWRT,2 
OFFC 00000 reir tage! 


wo s2 @ R2,R3,R4,R5,R6,R7,RB,RI,RIO.R11 : 398 
00000000" 00 29 v0 09002 HOVL «#32, DI SBUF : 40 
50 00000000" 60 Dd ae : 4031 
22 A 0 0 a01¢ MOVW #1, 34(RO) : 
57 000000006 9 E 1 MOV PRVSAB_NAMES, POINTER + 6032 
SB 8 A 00010 1$ MOVZBL (POINTER), SYMMIN 3: 4034 
0098 $4 600 ~ : 
38 D6 09 28: INCL POINTER 6064 
SA 7 OA 7 MOVZBL (POINTER)+, SYMVAL ; 4065 
58 7 OA 00 A MOVZBL (POINTER)+. SYMLEN + 4047 
03 06 BC ms A i 90 BBs YMVAL, @PRVADR, 3$ 3 4049 
07 00 67 cemmaaal 54 D 33 3 3$ CMPCS SYMLEN, (POINTER), #0, #7, P.AFF ; 4050 
re 13 0003F BEQL «=sSS : 
09 00 67 58 2D 1 CMPCS SYMLEN, (POINTER), #0, #9, P.AFG > 4051 
eoooono” 1s bates BEQL «SS : 
06 00 67 8 20 CMPCS SYMLEN, (POINTER), #0, #6, P.AFH : 4052 
00000000" 00 ce seer iad 
06 00 67 scaneual 35 20 9 CMPCS SYMLEN, (POINTER), #0, #6, P.AFI ; 4053 
é Q $ Ps 
50 00000099" 00 5 Bovt H TR, RO > 4062 
1 2 A : MOVZWL 34(RO), RI 3 
31 ; C ADDL2  SYMLEN, R1 : 
F 1 D} 7 CMPL =oR1, #63 ; 
16 15 é BLEG © 4$ ; 
bd PUSHL RO > 4065 
000000006 00 FB A CALLS #1, SYSSPUT : 
9 Dé CLRL —s- PRVCNT : 4066 
50 00000000° 0 D MOVL §RABPTR, RO > 4067 
A 8 MOVW #1, 34¢RO) ; 
00000099" 4$ MOVL RABPTR, RO > 4074 
AO 9E ROVAB $4(RO) R6 : 
00000000' 004 009¢ MOVB 8 bISBUF CRO) —— 
AG INCW = (R6S : 4075 
59 ap MOVZWL (RC), RO > 4076 
00006000" 004¢ 6 MOVC3  SYMLEN, (POINTER), DISBUFCROJ ; 
66 A ADDW2 SYMLEN. (R6) : 4077 
D6 INCL PRVCNT : 4078 
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y0e2000 print_priv = print privilege bits G-Jan-1985 15384396 LOAF .BUGSRe UAFMAIN.B32;1 . (495 

57 58 0 90087 5$: ADDL2 SYMLEN, POINTER : 

FF60 31 OOOBA BRw : 

59 DS OOOBD 6$: TSTL PRVCNT : 

OD 15 000sB5 BLEQ 7$ 3 

00600000" 00 odD 000C1 PUSHL RABPTR : 

000000006 00 01 FB 000C7 CALLS #1, SYS$PuUT 5 

04 OOOCE 7$: RET ; 


; Routine Size: 207 bytes, Routine Base: S$CODES + 21F6 
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v04-0 build_ini_recs - build system & default records B-Jan-19 4 13:01:10 UAF .BUGSRC JUAFMAIN.B32;1 
; 4033 rt ae 1 Ssbttl "build_ini_recs = build system & default records’ 
; re ¢ Pht $4 4 fous ine build-inilrecs : novalue = 
: 4036 4095 ; ° 
; 4037 409 ) tee 
; 4038 409 i 
: {bp 1838 FUNCTIONAL DESCRIPTION: 
: 4041 4100 i Build the initial records for the creation of a new UAF file. 
; 404 4101 ‘ The user default record is built in the DEFAULT_RECORD 
: ther 1108 buffer and the system manager record is built in RECBUF. 
> 6065 4104 2 | INPUTS: 
> 4046 4105 i 
3; 4047 4106 i none 
; 4048 4107 i 
: tbe6 rey IMPLICIT INPUTS: 
; 4051 4110 § i none : 
; 405 4111 i 
; 405 ret | i OUTPUTS: 
; 4054 411 ! 
; 4055 4114 i none 
; 4056 4115 2 i 
: ret 4 ais § IMPLICIT OUTPUTS: 
: 4059 4118 2: default record is built in DEFAULT _RECORD 
: res rap system record is built in RECBU 
; 406 412i ROUTINE VALUE: 
; 4064 4138 i none 
: 4065 41246 ! 
: rts e182 e SIDE EFFECTS: 
> 4068 4127 43 i none 
3; 4069 4128 ie 
; 4070 4129 
3; 4071 4150 local 
: rtf rit} user_desc : $bblock (8); 
: 4074 41 3 ch$filt (0, uafSc_fixed, default_record); 
; 4075 4134 default_ record uat$b_version] = Uaf$c _versiont; 
: $37 : 5 default -recordluaf$b_rtype) = uaf$c_uSer_id; 
: soe tise i username is blank filled 
> 4080 4139 2 
; 4081 4140 ch$copy (.defuser<0,8>, defuser+1, Ychar (" "), 
: ree o18] uaf$s username, default _tecordluaf$t _username)); 
: 6084 e128 
3 rts 21% ; account name is blank filled 
: rh 4146 
; 4088 414 ch$copy (.defact<0,8>, defact+!. char (* ‘) 
; 4089 4148 uaf$s _account, default ‘spemettuatta *account)); 


ee 
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. b-Jan-1985 10:96:07 
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' 
quadword privilege mask 


ch$move (8, defpriv, default_record(uar$q_priv)); 
ch$move cB defpriv, default-record uathaceet privi): 


! 
: directory name is counted string 


ch$copy (.defdir<0,8> + 1, defdir, %char (" "), 
uaf$s_defdir, default_recordluaf$t_defdir]); 


' 
device name is counted string 


ch$copy (.defdev<0,8> + 1, defdev, %char (" "), 
uaf$s_defdev, default_recordluaf$t_defdev]); 


! 
: CLI name is counted string 


ch$copy (.defcli<0,8> + 1, defcli, Achar (' "), 
uaf$s_defcli, default_recordluaf$t_defclil); 


i 
owner name is counted string 


ch$copy (.defowner<0,8> + 1, defowner, %char (' '), 
uaf$s_owner, default record(uaf$t_owner]); 


' 
i Login command file name is counted string 


ch$copy (.deflgicmd<0,8> + 1, defigicmd, %char (" '), 
uat$s_lgicmd, default record(uaf$t_lgicmd]); 


: fill in default CLI tables 


chScopy (.defclitabl<0,8> + 1, defclitabl, %char (* '), 
uaf$s_clitables, default_record(uaf$t_clitables)); 


ch$move (8, defpwdlife, default_record(uaf$q_pwd_lifetime)); 
fault_record(uaf$b_pwd Lengehd = defpwdlength; 
fault_recordluaf$w_grp] = defgrp; 

fault_record us toupee = defmen; 
ault“record{uaf$w_biolm! = defbiolm; 
ault_recordiuaf 

au 

au 


de 
de 
def 
def coaytia = gerbytia: 
fault_record(uaf = defdioin; 
f = deffillm; 


de olm 
de 


itlrecord vatsertitia 


UAFMAIN.B32;1 


B-Jan 1387 1 (396207 AX-11 B 
G_ini_recs = build system & default records ~bet-198% 1:10 UAF .BUG 


default_record[uaf$l_flags] = defflags; 
default_record(uaf$w_ _tacnt = deftqcnt; 
defauit_record(uaf$w_ <preent) = defprccnt; 
default_record vats. _wsquota] = defwsquota; 
default_record mre l suycetent? = defwsextent; 
default_recordiua + \"df ween : = Ge tdtusent; 
default_record(uaf$i— _cputia) = Se'cove: im; 
default_record(uaf$w_astim) = defastim; 
default_record ust? & -potlquotal « = ,defpotlquota: 
default_record(uaf$w ~enqim 
default~record(uaf$l =pbyt im) : de toby - 
default_record(uaf$w_s 1 £ gefaneti tes 
default_record(uaf$b_ “Sri = pr 
default_record uat$b_ que rid® : Ort vepri; 
detault_record(uaf$w “mexiobs) = de maxjobs; 
default_record uaf$w_ che = Meni maa 


vob 


yd 
+ 
- 
~ 
{ 
— 
= 


SRIF 


PPADS ATI E £* 
ODONOVLS WI "OO 0OW 
, keke ek ek eek ek ek ek ek et elt dt a 


default_record(uaf$l-jtquota] = efjta 
default_record(uaf$w_maxacct = de lesstectiohas 
default_record(uaf$b_primedays) = defprimedays; 
default_record(uaf$b_network access “23 = defhours; 
default_record(uaf$b_ —network_access_s] = defhours; 
defeult_record uaf$b_batch_access - = defhours; 
fault_record(uaf$b_batch_ .access_sJ = defhours; 
default_record uaf$b_local_ ~access_ it = defhours; 
default_record(uaf$b_local— ~access_s] = defhours; 
default record(uaf$b_dialup_access _p] = defhours; 
default_record(uaf$b_ ~dialup_access_s] = defhours; 
default_record(uaf$b_ remote_access -P defhours; 
default_record(uaf$b_remote_ _access_ defhours; 


ch$fil uaf$c zi ized. recbuf); 
recbuf vsti” version] = uaf$c _versiont; 
—— uetso. _ftype) = uaf$c_uSer_id: 
h$copy ( -syguser<d, .8>, sysuser+T, Schar (* *) 
$s_username, recbufCuaf$t username); 
sysac:<0, -8>, sysact+1, Icha 
ge hs “account, rec ttuatét teaccount ); 
. sySpriv, aed a — 
ch$move ( (8. syspriv recbuflua t$q- fet “oriv)); 
ch$copy ( -sy3di r<0,4> + 1, Syed char (' ‘), 
bs sdefdir. recbu uatét, defdir}); 
ch$copy ( -sysdevcd sysde char (' '), 
- vats defdev “t “reco us tbe detdey))j iy 
ch$c C char . 
opy < eh defcli “ceeputtuatée _defclil); 
ch$copy ( “8 souner< sysowner, Zchar (' '), 


cecbuf Cuaist aquner ); 
chScopy ( -s “ayatatensc 8S aighar (* *), 


Ft tend. z 

hSc Sef iced ce “pgebuftuats riPasto ghar ¢* *, 

c sclita a char 
“* “sysctl wat lesabie, sortultastec _clitables)); 


puddsc(dsc$w_length] = .syspass<0,8>; 
pwddsclds - ointer) = syspass*+1; 
user_descldsc$w_length] = . sysuser<0, 8>; 
yser, «scldsc$a_pointer] = sysuser+1; ; ; 
m (timadr™= time_buf); ! Obtain a 16 bit salt 


mr 
WAAIIUIRIPIPONINUNINININ 2 2 OO OO 


WN — SO 0ONONE WN" O OONOUFS WO 


ch$copy ( 
4184 


a ne tn tt 


SRSSSESESPELSSSELES 
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build_ini_recs - build system & default records 2-0ct-1984 13:01:10 UAF .BUGSRC JUAFMAIN.B32; 1 (31) 


5 
3 


64 recbuf uaf$b_encrypt] = encrypt; 
65 igiShpwd (rec_encrypt_dsc, pyddsc. -recbufCuaf$b_encrypt], 
$8 -recbufCuafSw_saltl, user_desc); 


at at at at at at at 


(8, syspwdlife, recbufCuaf$q_pwd_lifetime)); 
9 recbu vat fo_pud length) = syspudlength;” 
i = 


; : : 63 recbufluaf$Sw_salt] =_.time_buf<3*8,16>; 
; 4 Og 
: 250 
: 2598 
: 2535 0 buf 
: 421 rec uaf$w_gr Sysgrp; 
3; 4 \¢ 4271 recbufLuaf Zon = syolon: 
> 421 407 recbuf(uat$w_biolm) = sysbiolm; 
> 42146 427 recbufluaf$l_bytla) = ayesyt as 
: 4215 4274 recbufluaf$Sw_diolm] = sysdiolm; 
7 4 1 4275 recbufluaf$u_ mj = sysfillm; 
; 421 427 recbufluaf$l_flags] = sysflags; 
; 4218 427 recbufluaf$Sw_taqcnt] = systqcnt; 
: 4219 4278 recbufluaf$w_prccnt] = sysprccnt; 
: $220 4279 recbufluaf$l_wsquota] = syswsquota; 
: 4221 4280 recbufluaf$l_wsextent) = syswsextent; 
; 4 ¢ 4281 recbuf moth t pede be, = sysdfwscnt; 
3 4 4 S¢ recbuf(luaf$l_cputim) = syscputia; 
: 4226 428 recbufluaf$Sw_astim]) = grecet tas 
; 4225 4284 recbufluaf$l_pgflquota] = syspgflquota; 
: 4226 4285 recbufluafSw_enqim) = sysenqia; 
: 4227 4 a6 recbufluaf$l_pbytlm) = syspbyt(m; 
> 4228 428 recbufCuaf$Sw_shrfilim] = sysshrfillm; 
3; 4 $3 4288 recbufluaf$b_pri]) = syspri;: 
: 4 4289 2 default_record(uaf$b_quepri] = sysquepri; 
: 4231 4290 recbuf(uafSw_maxdetach] = sysmaxdetach; 
3: 4 3 4291 recbuf uat$t-jtquotal = sysjtquota; 
3 4 ; 4 ¢ recbuf mot Bweel be 2 = sysmaxjobs; 
: 4234 629 recbufluaf$Sw_maxdetach]) = sysmaxdetach; 
> 4235 4294 2 recbufCuafSw_maxacctjobs) = sysmaxacctjobs; 
3 4 4295 recbufluaf$b_primedays] = sysprimedays; 
3; 4 & 38 recbuf uat Sb-network-access_p] = defhours; 
7 4 4 recbufluaf$b_network_access_s] = defhours; 
; 4239 4298 recbufluaf$b_batch_access_p] = defhours; 
: 4240 & recbufluaf$b_batch_access_s]) = defhours; 
: 4261 4300 recbufluaf$b_local_access_p) = defhours; 
3: 426 4301 recbufluaf$b_local_access_s] = defhours; 
3; 424 rh recbufluaf$b_dialup_access_p] = defhours; 
> 4244 4 recbufluaf$b_dialup_access_s) = defhours; 
3: 4265 4 recbufluaf$b_remote_access_p] = defhours; 
: 4246 4305 recbufluaf$b_remote_access_s] = defhours; 
6 424 & 06 end; 
O3FC 00000 BUILD_INI RECS: 
“ ,Q@ORD Save R2,R3,R4,R5.R6,R7,R8,R9 : 4093 
9 00000000' 00 9 MOVAB DEFACT+{ a9 ; 
8 10000000: 9E MOVAB DEFAULT RECORD, RB ; 
N0000000° 4 1 MOV RECBUF, R ; 
E § 1 SUBL #8, SP 3 
0284 «BF 00 6E ? C ; i Movc #0, (SP), #0, #644, DEFAULT_RECORD : 
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vOe-000 build_ini_recs = build system & default records Br3et=19 & 13:84:90 UAF .BUGSRC JUAFMAIN.B32; 1 oo (333 
$8 0101 8F B0 000 3 MOVW #257 DEFAULT RECORD 3 4135 
E8 A 9A MOV ZBL DEFUSER. R : 4140 
20 <0 e9 Ad ss i C : MovcS RO, DEFUSER+1, #32, #32, DEFAULT_RECORD+4 =: 4141 
5 FF =6AQ OA MOVZBL DEFACT, RO + 4147 
20 20 6 ts 3 C moves ai DEFACT+1, #32, #32, DEFAULT_RECORD*52 : 4148 
19¢ C8 19 a9 0 : t MOVC 48, DEFPRIV, DEFAULT_RECORD+41 + 6154 
we «OC 10 a9 0 4 MOVCS #8, DEFPRIV, DEFAULT~RECORD+42 + 4155 
50 06 A ) i035 MOV ZBL DEFDIR, RO + 4161 
0060 «8 20 06 Ad seed C 0080 MOVCS RO, DEFDIR, #32, #64, DEFAULT_RECORD+148 =: 4162 
50 0D A9 9A 00050 MOVZBL DEFDEV, RO + 4168 
20 6 00061 INCL 3 
20 20 Op ad ae ¢ 0063 MOVCS RO, DEFDEV, #32, #32, DEFAULT_RECORD+116 : 4169 
50 $9 9a 00068 MOVZBL DEFCLI, RO + 4175 
0 06 006 INCL ; , ; 
20 20 69 oes é ¢ 007 MOVCS RO, DEFCLI, #32, #32, DEFAULT_RECORD+276 : 4176 
50 4 Ad 9A 00078 MOVZBL DEFOWNER, RO + 4182 
50 Dé 0007C INCL ; 
20 20 06 Ad “ 30 2C O007E MOVCS RO, DEFOWNER, #32, #32, DEFAULT_RELORD+84 : 4183 
tS 05 a9 9A 00086 MOVZBL DEFLGICMD, RO + 4189 
50 06 O008A INCL : 
0060 &F 20 0S a9 oth 30 2c 900 MOVCS RO, DEFLGICMD, #32, #64, DEFAULT_RECORD+212 : 4190 
50 FS AD OA $09 7 MOVZBL DEFCLITABL, RO > 4195 
50 D6 00 INCL RO ; 
20 20 FSA 50 2C MOVCS RO, DEFCLITABL, #32, #32, - > 4196 
0134 CB DEFAULT _RECORD+308 ; 
0174 8 18 «AS 8 38 MOVC3) #8, DEFPWDLIFE, DEFAULT_RECORD+372 + 4198 
016A 6 VB 6 DEFAULT RECORD+36 : 4199 
¢4 A8 00800080 8F 00 VL 8588736, DEFAULT RECORD+36 + 4201 
0230 1900 F 3¢ MOVZWL 44096 DEFAULT _RETORD+560 + 4203 
O20E C8 00060006 8F dO VL #393262, DEFAULT RECORD+526 + 4202 
0104 «CBO CLRL DEFAULT RECORD+488 + 4206 
o20c «CC 2 80 Wo RULT_RECORD+52 + 4208 
O21c =C¢ C8 «BF OA MOVZBL #200, DEFAUCT_RECORD+540 : 4209 
0224 ¢ OFS «=o BF3C MOVZ2WL #500, DEFAULT-RECORD+548 + 4210 
0220 ¢ 96 BF 9A MOVZBL #150. DEFAULT RECOR 544 : 4211 
a 8 D4 LRL DEFAULT RECORD* 3 4212 
9 12 CB OOOAOO0A &F bd MOVL #6553707 DEFAULT RECORD+530 : 420 
2 10 8F ¢ MOVZWL #19000 DEFAULT RECORD+5 é + 4214 
0216 CB 0014 9A F D MOVL = #131 DEFAUCT_RECORD+534 > 4215 
4 cB D4 CLRL DEFAULT_SECORD+ 6 3 4216 
1A 4 CLRW DEPART RECORD+538 3; 4217 
9204 cg 404 F 3¢ VZWL # 02 . DEFAULT RECORD+516 > 421 
8 ¢ 400 BF 3¢ MOVZWL #1024. DEFAULT RECORD* 6 : 4 
208 8 D4 CLRL DEFAULT RECORD?5 7 4 
0202 ¢ 6 F VB 6, DEFA LT RECORD*514 > 4026 - 
0108 = 18 F INSV , #0, #24, DEFAULT _RECORD+47 > 4225 
Olipps¢ 1 F INSV ; #0. #24, DEFAULT-RECORD+47 : 4226 
O1DE ¢ 18 t INSV #0, #0, #24, DEFAULT-RECORD+478 > 42e7 
O1f1 oC 1 F INSV #0, #0, #24; DEFAULT“RECORD+481 > 4228 
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O16 oC 1 FO 0013F INSV #0, #0, #26, DEFAULT_RECORD+484 : 4 29 
1e7 ¢ 1 FO 00146 INSV #0, #0, #24. DEFAULT-RECORD+487 + 4230 
1fA OC 1 FO 00140 INSV #0, #0. #24, DEFAULT-RECORD+49 + 4231 
160 «OC 1 0 F 134 INSV #0, #0. #24, DEFAULT-RECORD+49 : 4 3g 
Stes 9 FO 0016 INSV. #0. #0. #96. DEFACETRECoRDeco : 1532 
0284 &F 0 2c 1 MOVCS #0, (SP), #6, #644, RECBUF + 4236 | 
? 0101 $F 0 00171 MOVW #257, RECBUF : 4238 
& 20 Ad 9A 00176 MOV ZBL SYSUSER, R6 + 4239 
20 20 21. Ad , 3 C O17, MOVCS R6, SYSUSER+1, #32, #32, RECBUF+4 + 4240 
50 9 Ad 9A $} $ MOV ZBL SYSACT, R + 4241 
20 20 3a A es 3 2c 91 : MOVCS RO, SYSACT+1, #32, #32, RECBUF+52 + 4242 
019¢ «C7 60 a9 08 : O18 MOVC3 #8, SYSPRIV, RECBUF+412 + 4263 
O1AG C7 60 a9 019 MOVC3 #8. SYSPRIV. RECBUF +420 + 4246 
50 54 a9 9A 0196 MOV ZBL sySpiR, RO + 6265 
0040 8F 20 54 OAD eae 30 2C OOtAe MOVCS RO, SYSDIR, #32, #64, RECBUF+148 + 4246 
50 Sp AD OA 001 AD MOVZBL SYSDEV, RO + 4247 
50 D6 00181 INCL R : 
20 20 5D Ad 6 30 2c aries MOVCS RO, SYSDEV, #32, #32, RECBUF+116 + 4248 
50 40 a9 9A 00188 MOVZBL SYSCLI, RO + 4249 
50 D6 001BF INCL R : 
20 20 40 a9 =a 50 2¢ o01c) MOVCS RO, SYSCLI, #32, #32, RECBUF+276 : 4250 
50 44 AD OA OO1cA MOVZBL SYSOWNER, RO t 4251 
50 06 Ht INCL 5 
20 20 44 ad - 30 2c sabe MOVCS RO, SYSOWNER, #32, #32, RECBUF +84 + 4252 
56 53 AD «9A 00108 MOVZBL SYSLGICMD, RO + 4253 
50 06 0010 INCL ; 
0040 8F 20 0S ag peer 5 2c O1DE MOVCS RO, DEFLGICMD, #32, #64, RECBUF+212 ; 4254 
50 2F AD OA gies MOVZBL SYSCLITABL, RO > 4255 
0 06 1D INCL RO ; 
20 20 2F a st 50 C IEF MOVCS RO, SYSCLITABL, #32, #32, RECBUF+308 ; 4256 
0584 cB 37 AD 9B if8 MOVZBW SYSPASS, PWDDSC : 4258 
sag € 8 a9 3 1FE MOVAB SYSPASS+1, PWDDSC+4 : 4259 
6E 5 Q MOVW RG, USER_DESC > 4260 
04 AE 1 AD 9 7 MOVAB SYSUSER+T, USER_DESC+4 + 426" 
0670 C7 OF PUSHAB TIME BUF + 4262 
09 . 1 CALLS #1, SYSSGETTIN : 
0166 C 0673 ¢7 1 MOV Ae BUF +3, RECBUF +358 > 4263 
168 (7 2 1 MOVB #2, RECBUF+36 + 4264 
re noe Ch Se ROVZuL RECBUF+358, -(SP) i 506 
7E 188 C? OA A MOV ZBL RE Cour sap. -(SP) : 4 re: 
584 cB F F PUSHAB P¥DDSC ; 
coors op GF FERRE RABE BEC Fans : 
01746 «¢? 6 a9 3 movcs «#8; SYSPUDL IEE. RECBUF +372 + 4268 
016A CC 4 MOVB #8, RECBUF+36 > 4269 
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vO6-000 build_ini_recs = build system & default records Braet 1984 15:84:40 UUAF -BUGSRCIUAFMAIN. BS2s1 : (31) 

4 a7 00010004 8F po A MOVL #65540, RECBUF +3 : 4271 

92 0 C7 0 &8F MOVZWL # 048 RECBUF + 9 + 4273 

— C7 000c000C BF Dd VL #786444, RECBUF +526 + 4272 

1046 «C7 «OD CLRL RE 8 F+h6 : 4 16 

2? 2 0014 14 F 06 MOVL #1310740, RECBUF+530 + 427 

OA €7 OO0A 90 F F ML a6 5360 RECBUF +522 + 6290 

Re 1 : F 3C ONS78 V2WL #350, RECBUF +540 + 6279 

0 34 C7 F %3C O0d7F MOVZWL #10 4, RECBUF+548 + 4280 

0220 (7 tf 9a 00 MOVZBL #150, RE CBUF +544 + 4281 

3 g 7 04 00 CLRL RE : F+556 + 4282 

0228 C7 F 3¢ MOVZ2WL # Q RECBUF +552 + 4284 

0216 C7 0014 4 F DO 0029 VL #131 49 RECBUF +534 + 6285 

4 C7 04 002A0 CLRL  RECBUF+ $4 + 4286 

1A C7 Bs AG CLRW RECBUF+538 + 4287 

0206 (7 4 O2A8 MOVB #4, RECBUF+51 + 4288 

0205 cg 4 O2AD VB #4. DEFAULT _RECORD+517 + 4289 

0238 =¢ 0400 8F 3¢ 00 82 mOVZ2wL (#1024 REC OF +568 + 4291 
920A C7 B4 0028 CLR RECBUF +5 ; 
06 7 D4 02BD CLRL RE CBUF +5 1 : 
0202 c7 6 F 90 002C1 VB 6, RECBUF+514 : 
01p8 (7 18 0 FO 02C7 INSV #0, #0, #24, RECBUF+472 ; 
01pB «C7 18 00 0 F000 cE INSV = #0, 40, #24. RECBUF+475 : 
O1DE 7 18 00 00 FO 02D INSV #0. #0. #24. RECBUF +478 : 
O1E1 «C7 18 00 00 F d020¢ INSV 4&0, #0, #24, RECBUF +481 : 
O1ES = C7 18 00 00 FO 002E INSV #0, #0. #24, RECBUF +484 : 
O1E7 C7 18 00 00 FO OOZEA INSV #0, #0, #24, RECBUF +487 ; 
O1EA C7 18 00 FO O2F1 INSV #0. #0. #24. RECBUF +490 F 
O1lED (7 18 00 00 FO 002F8 INSV #0, #0, #24, RECBUF +493 ; 
O1FO 36 C7 18 00 00 FO OO2FF INSV #0, #0, #24, RECBUF +496 F 
O13 «C7 18 00 00 FO 90306 INSV #0, #0, #24, RECBUF+499 ; 


; Routine Size: 782 bytes, Routine Base: S$CODE$ + 22C5 


16 
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VO6000 get_user_record - get username and lookup recor f-}an-1965 15:64:96 UAF .BUGSRC JUAF MAIN.B32; 1 


ene 
as 


IMPLICIT OUTPUTS: 
none 
ROUTINE VALUE: 


true => user record found 
false -> user record not found 


SIDE EFFECTS: 
none 


; 23 4307 1 &sbttl ‘get_user_record = get username and lookup record’ 

; & ror ne get_user_record (lock _record, permanent_ok) = 

: 1 4 begin 

3 ¢ 431 

: 431 '+¢ 

> 4254 4 12 : 

>; 4255 : \3 FUNCTIONAL DESCRIPTION: 

; 38 4315 This routine pulls the next token out of the command 
; 4258 4 buffer, assumin s the username, and looks up the 
3; 4259 431 UAF record for that name. If the record is found, 

: $0 ? 18 it is loaded into RECBUF (by routine LOCATE_USER) . 

3 6¢ 2 9 INPUTS: 

> 4264 4 § LOCK _RECORD = specifies that the GET shall lock the record 
: 4265 : ? PERMANENT_OK = specifies that the DEFAULT and SYSTEM records are allowed 
3 ef : 5 

; 4269 43 5 

3; 4270 4328 

; 4271 329 

: 427 ; 0 

: 7 1 

3 74 ¢ 

3; 4275 none 


SEEN A2SESELEAREN AS Sao 


if .rename_ph2 
then 


begin 

if .netuaf_exists 

then adjust_proxy (update_records); 

ch$move (.olduserlen, oldusername, .tokenptr); 
tokenlen = .olduserien; 

rename phe = false; 

e 


IMMA ARHARARARRARRARURAARARARRRARARARAAAMAAMHMMMM eee 
wn— 


1 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
; IMPLICIT INPUTS: 
: TOKENPTR = address of delimiter following last token processed, 
: which was the command name. 
TOKENLEN = global variable to contain length of current token 
: OUTPUTS: 
i 
' 
i 
i 
i 
i 
i 
i 
i 
i 
a 
i 
i 
i 
builtin 
nul lparameter; 
‘ 
; Is this the second phase of a RENAME? 
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get_user_record - get username and lookup recor 2-0ct-1984 13:01:10 UAF .BUGSRC JUAF MAIN.B32; 1 (32) 


$5 
3 


4 4 : 
4 & ' Not the gecond phase of a RENAME. Get first token, and if this 
4 4 ! is the first phase of a RENAME (COPY phase), save token for 
: 24 : the second phase (REMOVE phase). 
4311 4 e else 
4 \§ 4370 begin 
431 4371 : 
4314 4 ye ' Get token 
4315 437 : 
4 1 4374 if not cliS$present (sd_token1) 
431 4375 or not cli$get_value (Sd_token1,tokendsc) 
4318 4 6 or .tokenlen eat 
? iy ? as ' then return LIBSSIGNAL (UAFS_NNUSERNAME) ; 
4 A 4379 ! If the third argument is present, this is the first phase of a 
4 $2 4 80 ! RENAME, so save the token for the next call 
43246 4 fi if not nullparameter (3) 
4325 438 then 
4326 4384 4 begin 
4327 4385 4 chdcopy (.tokenlen, .tokenptr, ' ', uaf$s_username, oldusername); 
4328 4386 4 olduserlen = .tokenlen; 
4329 4387 4 rename_ph2 = true; 
4330 4388 3 end; 
$33) 4389 end; 
4 ; 4390 
$387 4391 if not .permanent_ok 
43 439 then _ 
$332 439 begin ; 
43 4394 if ch$eql (.defuser<0,8>, defuser+1, .toxenlen, .tokenptr, ' ') 
4337 4395 then 
4338 43 if nullparameter (3) 
4339 439 “then 
4340 439 return LIBS$SIGNAL (UAFS$_REMDEF ) 
4341 439 se 
2 ¢ Pets return LIBSSIGNAL (UAFS$_RENDEF); 
4344 440 if ch$eql (.sysuser<0,8>, sysuser+1, .tokenlen, .tokenptr, ‘ ') 
4345 440 then 
4 6 4404 4 begin 
4 4405 4 if nullparameter (3) 
4348 && 4 then 
434? 4407 4 return LIBSSIGNAL (UAF$_REMSYS) 
4350 4408 4 6e 
4351 4409 4 return LIBSSIGNAL (UAFS$_RENSYS); 
£328 4410 d; 
$32 4411 end; 
4354 4218 
4355 441 if locate_user (.tokenlen, .tokenptr, .lock_record) 
& 28 4414 then return true; 
435 4415 
& 28 z218 if .rmserr eql rms$_rnf 
435 441 then 
? : rt | LIBSSIGNAL(UAF$_BADUSR, 2, .tokenlen, .tokenptr) 
else 
4362 4420 LIBSSIGNAL(UAFS_GETERR, 0, .rmserr); 


K 1 
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: 6363 4421 false 
3 Cae 4422 end; 


07FC 00000 saat. tua 


WO 
5A 0000000 9E 0000 MOVAB 
59 Sass § 3 0 05 dpe 
#7 apoodoud* 90 9 Boot? ROVAB 
1f 68 E Baie BLBC 
07 10 A? €9 1 BLBC 
7E D4 00025 CLRL 
E796 = CF 01 FB 00027 CALLS 
56 04 ae DO 0002C 1$ MOVL 
50 04 A? 00 000 MOVL 
60 08 A8 56 28 000 MOvC3 
67 56 44 00039 MOV 
$3 4 0003C CLRB 
45 11 000 BRB 
59 DD 00040 2$ PUSHL 
000000006 00 2 FB 0004 CALLS 
12 0 E9 0004 LBC 
5? DD 0004C PUSHL 
59 DD O004E PUSHL 
000000006 00 98 4 0050 CALLS 
04 50 €9 00057 BLBC 
67 BS 0005A TSTW 
08 12 0005C BNEQ 
000000006 8F DD 0005E 3$ PUSHL 
7B 11 00064 BRB 
03 6C 91 00066 4$ CMPB 
1A 1F 00069 BLSSU 
oc ac 0 068 TSTL 
15 1 B88 L 
56 67 3¢ MOVZWIL 
50 04 A? 00 0007 VL 
20 20 60 56 2C 0007 movcs 
08 ABs O7C 
04 Ag 56 DO 0007 MOVL 
8 01 44 MOVB 
C 0 AC 3 5$: BLBS 
51 013 9 9A 00089 MOVZBL 
50 04 A? 0 VL 
67 20 0119 «C9 | D 0009 CMPCS 
1A i 9A BNEQ 
03 gc 9 9C CMPB 
5 iF OF BLSSU 
oc Ac 3 Al TSTL 
AG BNEQ 
000000006 8F 99 Aé 6$: PUSHL 
a AC RB 
00000000G 8F DD AE 7%: PUSHL 


07 AX-11 Bites =32 V4.0-742 
UAF . BUGSRC’ UAFMAIN.B32;1 


R2.R3,R4 RS,R6,R7,RB,RI,R10 
IGNAL, nfo 


H2, 2$ 
NETUAF “EXISTS, 1 
“(SP 


ADJUST _PROXY 
oubuSER R6 
TOKEN RETR Neo 

R6, sitter, 


R6, TOKE 
RE KPH. 


(RO) 


; CLISPRESENT 
+ GLISGES_VALUE 
TOKENLEN 
#UAF $_NOUSERNAME 
(AP), #3 


NLEN 
TOKENPTR. nd 
R6, (RO), #32, #32, OLDUSERNAME 


Be. © tere et: 
EP 


H 
PERMALIENT. Ok, 12$ 
DEFU USER Ri 
TOKENPT PTR 
KENEFUSERS1. 


#32, TOKENLEN, (RQ) 


HUAFS_REMDEF 
MUAF $_RENDEF 
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SOooQooooooooooooo: 
MWR MRMMMMMMoOVCSOM 


COSr—-ViP  OVIOS FE CMOCMOPOO Ow 
> 
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SOCOOSSS? SGOSSOOCOSOOOOOOOSD OOOO OOOOOOOOSOO 


OWS EL *NNWON —OWNNO STO 
O93 T9999 $-VNMOOWS “TCI OT9C M™WIOCO"0 90 ]$90—0—_ wo o— 


MOWDVWNGCO 
SoooSoSoO 

cD cD cD ee ce ed eed eed ed eed eed ed 
MPN SS 
DOCOMO y>~— 


SCODES + 2503 


3; Routine Size: 


MUAF$_REMSYS 
AF$_RENSYS 
ie LTBSSIGNAL 
LOCK_RECORD 

TOKERPTR 


TOKENLEN -(SP) 
#3, LOCATE _USER 
RO, 13$ 


#1, RO 


RMSERR, RO 
RO, #98994 
148 


TOKENPTR 
TOKENLEN, -(SP) 


MUAF 
#4 


15$ 
RO 


=(SP) 
MUAF$_GETERR 
+f LIBS$SIGNAL 


$_BADUSR 
LTB$SIGNAL 


AX-11 Blis 
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4402 


t 4405 
: 4407 
t 4409 


t 4413 


; 4414 
; 4416 


; 4418 


; 4420 


4422 
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locate_user = lookup user record in UAF 


4423 
4424 
i 
ie 
44 5 
6/30 


} 
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%sbttl ‘locate_user - — user record in UAF’ 
5 one locate_user (size, buffer, lock_record) = 


Li 
SRC 


gin 
hd 
i FUNCTIONAL DESCRIPTION: 

Routine to locate a user record in the UAF file. 
INPUTS: 

SIZE _=- size of the username string 

LOCK RECORD «specifics thar the eet shall lock the record 
IMPLICIT INPUTS: 

UAFRAB = RMS data structure for SYSUAF.DAT 
OUTPUTS: 

none 
IMPLICIT OUTPUTS: 

If record is found, RECBUF contains the located record. 
ROUTINE VALUE: 


true => record found 
false => record not found 


SIDE EFFECTS: 


none 
local 

found; ! record found indicator 
found = true; ' assume record was found 


ch$copy (. os ize. ebuffer, %char (° 
username, cee a AE username); 


if .lock_record 

then uafrab(rab$l -rop) = rabSm_rlk 

else uafrablrab$l-rop) = rab$m_ rel or rab$m_nlk; 
if not (rmserr = get uvaf_record ()) 

then found = false; 


return .found; ' return indicator 
end; 


©s=32 V4.0-742 
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1 
UAFMAIN B-san-1985 1: 64: 
v04-000 locate_user = lookup user record in UAF “Oc t-1984 1 


OOFC 00000 LOCATE_USER: 
WORD 


57 00000000' 0 oF £006 MOVAB 
56 1 D0 0000 MOVL 
20 20 08 BC 04 a ec poe MOvCS 
FAI8 =¢C 0001 
09 OC AC €E9 00016 BLBC 
67 00080000 8F DO QOOIA MOVL 
g? 11 poest BRB 
67 00100008 F DO 00023 1$: MOVL 
00000000v 00 00 FB pp gs 2$: CALLS 
FAOC (C7 50 DO 00031 MOVL 
02 50 £8 00036 BLBS 
56 D4 00039 CLRL 
50 56 09 00038 3$ MOVL 
04 0003E RET 


; Routine Size: 63 bytes, Routine Base: S$CODE$ + 26FF 


7 AX-11 Oi leans V4.0-742 
0 UAF .BUGSRC JUAFMAIN.B32;1 
Seve a R3,R4,R5,R6,R7 
UAFRA Beh R7 


BUN 
Side. QBUFFER, #32, #32, RECBUF+4 


Fe5028B 6 Ua: RA RAB+G 


#1048584, UAF 2AB+4 
#0, GET_UAF_REL IRD 
RO, RMSERR ~ 


F OUND 
FOUND, RO 
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UAF MAIN b-san-19 § 17:24:07 AX=11 Bliss-32 V4.0-742 Page 164 U 
v04-000 get_uaf_record = routine to deal with record lo 2-0ct-1984 13:01:10 UAF .BUGSRC JUAFMAIN.B32;1 (34) | Vv 
; 442 4478 1 Xsbttl ‘get_uaf_record - routine to deal with record locking’ ; 
: tes re 1 [out ine get_uaf_record = : 
; i ; 
: 4625 4481 $ ° : 
: 4426 4482 2 !+4+ : 
> 4427 4483 2 | ; 
; rk tthe § FUNCTIONAL DESCRIPTION: : 
: 4430 4486 2 | A common routine to GET records from SYSUAF.DAT, deal with retries : 
: reg ret t4 § when the record is locked. - 
: 4433 a4Bs ¢ i INPUTS: ; 
> 4434 4490 : ; 
> 4435 4491 2! none 
3; 4436 4492 2! : 
: te rete, § : IMPLICIT INPUTS: : 
: rete rent $ UAFRAB = RMS data structure for SYSUAF.DAT : 
4441 4497 2 | OUTPUTS: 
> 4442 4498 2 ‘ 
> 4443 4499 2! none : 
> 4444 4500 2! : 
3 ak 2263 § : IMPLICIT OUTPUTS: : 
; 4667 4303 ¢ . RECBUF - The user's record : 
; 4469 4305 ¢ i ROUTINE VALUE: ; 
: 461 4307 é RMS status code ; 
; 4453 4309 ¢ i SIDE EFFECTS: ; 
; 4455 4511 2 | none ; 
> 4456 4512 2 i-= : 
> 4457 4513 2 é 
: 4458 4514 2 local : bitin ; 
; rot! tea § counter, ! number of retries remaining : 
; success; : 
: 4461 4517 2 : 
3 4462 4518 2! : : 
3 4463 4519 2! If anybody's record is locked it shouldn't remain that way for Long. : 
3 sake 1259 2 : Alse, ignore the special system password record. : 
: 4466 1852 $ 
3 4467 4523 2 counter = retry_rlk; : 
>; 4468 4524 4 while ( ((success = Soet (rab = uafrab)) eql rms$_rlk) : 
3; 4469 4525 3 or ch$eql (UAF S USERNAME , RE CBUF CUAF$T_USERNAME ] , . 
3: 4470 4526 ; 17, uplit(Zascii <SystenrDossuore>’), me *} 3 : 
: reek test - and ( (counter = .counter - 1) geq 0) : 
; oot? 4399 § if Sschdwk (daytim = wakedelta) then $hiter; : 
5 4475 4531 2 .success 
3; 4476 4532 1 end; : 


UAFMAIN 8 
v04-000 get_uaf_record = routine to deal with record lo 


72 6F 77 73 73 61 50 2B 6D 65 i 73, «79 32 


000000006 
000182AA 
11 20 00000000' 


000000006 
000000006 


; Routine Size: 83 bytes, 


00 060 


54 
00000000' 


55 


00000000' 


00000000° 


Routine Base: S$CODE$ 


3¢ 
5E 64 


903C 00000 GET_UAF_RECORD: 
WORD 


VIDOWO NON VUINION —"NNWOOoo 
VAOOCLMoOmMs £&—-CO0OMo—- Ow 
o 

FOo-DWoOWDo*FOnnw UW -OW™"oO 
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+ 273E 


1 
-Jan-1 
-Oct-1 


38 


z 1836 


-PSECT 


00890 P.AFJ: .ASCII 
0089F 


pejofofelolelelolelelelo) 
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18: 


2$: 


3$: 


»PSECT 


:07 AX-11 Bliss-32 V4.0-742 
:70 t 


4 
UAF .BUGSRC JUAFMAIN.B32;1 


SPLITS,NOWRT ,NOEXE,2 
\<System+Password>\<0><0><0> 


SCODES$,NOWRT,2 
Save R2,R3,R4,R5 

#8, COUNTER 

UAF RAB 

#1, SYSSGET 

RO, SUCCESS 

SUCCESS, #98986 

#32, RECBUF+4, #32, #17, P.AFS 
BS 

COUNTER 

3$ 

=(SP) 

WAKEDELTA 

=(SP) 

#4, SYSS$SCHDWK 

RO. 1$ 

#0. SYSSHIBER 

SUCCESS, RO 
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1 
UAF MAIN i an-198 
v04-000 get_cmd Line = input user command Line “Oct-19 


ou 


t+ Be ee Bliss-32 V4.0-742 Page 1 
1:10 UAF .BUGSRC JUAFMAIN.B32; 1 (3 


; 4478 4533 1 Xsbttl "get_cmd_line - input user command Line’ 

> 4479 tee 1 routine get_cmd_line = 

; 4480 4535 begin 

; 4481 4536 

3 448 4537 14+ 

; 448 4538 § : 

: 4484 4539 ! FUNCTIONAL DESCRIPTION: 

> 4485 4540 2! ; 

: 4486 4541 2! This routine reads in the command Line from the user, 
; 4487 $286 et reading additional lines if continuation is specified by 
; 4488 4545 2! a '-" as the last character on the input Line. 

> 4489 4544 § : A zero byte is inserted following the last input character read. 
; 4490 4545 : 

; 4491 4546 2 ! INPUTS: 

; 4492 4547 2! 

3; 4493 4548 2! none 

3; 4494 4549 2! 

+ 4495 4550 2 ! IMPLICIT INPUTS: 

> 4496 4551 2! : ; 
; 4497 4552 2! CMDBUF = buffer to receive the user's command Line 
: 4498 4553 2! CMDBUFLEN = Literal Length of CMDBUF 

3 4499 4554 2! 

; 4500 4555 2 ! OUTPUTS: 

; 4501 4556 2! 

; 4502 4557 2! none 

; 4503 4558 2! 

; 4504 4559 2 ! IMPLICIT OUTPUTS: 

; 4505 4560 2! Se : : 

; 4506 4561 2! CMDBUF is filled with command Line 

; 4507 4562 2! 

; 4508 4563 2 ! ROUTINE VALUE: 

; 4509 4564 2! 

3; 4510 4565 2! none 

; 4511 4566 2! 

3; 4512 4567 2 ! SIDE EFFECTS: 

3 4513 4568 2! 

; 4514 4569 2! none 

; 4515 4570 2 !-- 

: 4516 4571 2 

3001 **NEWee 4572 2 local 

3002 **NEWre 4573 2 STATUS; 

3003 **NEWee 4574 2 

3004 **NEWee 4575 2 fe) . 

3005 **NEWee 4576 2 STATUS = LIBSGET INPUT(CMDLINDSC, Zascid'UAF> *) 
3006 **NEWre 4577 2 until CMDLINDSCCDSC$Q_LENGTH] neq 0 or .STATUS eql RMS$_EOF; 
3007 **NEWee 4578 2 

3008 **NEWee 4579 2 if .STATUS eg! RMS$_EOF then 

3009 teNEWee 4580 2 exit_uaf ); 

3010 **NEWere 4581 2 

3011 teNEWee $286 2 return .STATUS; 

3 4569-52 45835 2 

> 4570 4584 1 end; 


-PSECT SPLITS,NOWRT ,NOEXE 2 


Routine Base: S$CODE$ + 2791 


; Routine Size. 61 bytes, 


4 
UAFMAIN “Jan-1985 17:24:07 AX=-11 Bliss-32 v4.0-74 
v04-000 get_cmd_line = input user command Line ety 7 15:64;90 UAF .BUGSRC UAFMAINeB So as3e 1 
00 00 00 20 36 46 41 55 Hy P.AFL: .ASCII Wat? \<0><0><0> 
OOF O02 QOBAC P.AFK: .LONG 17694725 
0000000' 00880 -ADDRESS P.AFL 
-PSECT SCODE$,NOWRT,2 
QO00C 00000 GET_CMD_LINE: 
«WORD Save R2,R3 
53 00000000' 00 9€E 00002 OVAB CMDLINDSC, R3 
00000000' 99 9F 00009 1$ PUSHAB 
53 DD 0000F PUSHL RES 
000000006 00 02 FB 00011 CALLS #2, LIBSGET_INPUT 
52 50 DO 00018 MOVL RO, STATUS 
50 63 3 00018 MOVAB CMDLINDSC, RO 
09 12 OOO1E BNEQ 2$ 
0001827A_ = BF 52 D1 00020 CMPL STATUS, #98938 
EO 12 00027 BNEQ 1$ 
0001827A = 8F 52 Di 00029 2$ CMPL STATUS, #98938 
07 12 00030 BNEQ 3$ 
00000000v 00 0O FB 00032 CALLS #0, EXIT_UAF 
50 52 DO 00039 3$ MOVL STATUS, 
04 0003C¢ RET 


rae Ig 


LADD LRRD LLL LL tit ie i i 


! 
i If end of file encountered on get (either “2 from terminal or 
: end of file on indirect command file) then take exit path. 


if $get (rab=inrab) eql rms$_eof 
then exit_uaf (); 


1 
UAF MAIN B-san-t9 5 17:36:07 inne a V4.0-742 Page 168 
v04-000 ask = prompt terminal for input -0ct-1984 13:01:10 UAF .BUGSRC JUAFMAIN.B32;1 (36) 
; 457 4585 1 &sbttl ‘ask = prompt terminal for wnput 
; 457 2288 1 eyes routine ask (string, buffer, len) : novalue = 
> 4574 4587 egin 
; 4575 4588 
>; 4576 4589 ++ 
; 4577 4590 : 
>; 4578 4591 ! FUNCTIONAL DESCTIPTION: 
; 4579 1236 § : : 
> 4580 459 : Routine to prompt user for input. The input string is read 
> 4581 4594 § : into the user specified buffer and the size read 
>; 4582 4595 ! is placed in the global INSIZE. 
>; 4583 4596 § : 
: 4584 4597 ! INPUTS: 
>; 4585 4598 2! - f 
; 4586 4599 2! STRING = the address of a counted ascii prompt string 
; 4587 4600 2! BUFFER = address of the input buffer 
: 4588 4601 2! LEN = Length of the input buffer 
; 4589 4602 § : 
; 4590 46035 ! IMPLICIT INPUTS: 
; 4591 4604 2! 
; 4592 4605 2! none 
3; 4593 4606 2! 
3; 4594 4607 2 ! OUTPUTS: 
; 4595 4608 2! 
; 4596 4609 2! none 
; 4597 4610 2! 
; 4598 4611 2 ! IMPLICIT OUTPUTS: 
: 4599 4612 2! : ; 
; 4600 4613 2! INSIZE = size of the input string 
; 4601 4614 2! 
3; 4602 4615 2 ! ROUTINE VALUE: 
; 4603 4616 2! 
3; 4604 4617 2! none 
; 4605 4618 2! 
; 4606 4619 2 ! SIDE EFFECTS: 
; 4607 4620 2! 
; 4608 4621 2! none 
; 4609 4622 2 !-- 
: 4610 46235 2 
3; 4611 4624 2 map 
3; 4612 4625 2 buffer : ref vector(,bytel; 
3; 4613 4626 2 : 
> 4614 4627 2 inrabCrab$l_pbf] = .string + 1; ! prompt string address 
3; 4615 4628 § inrab rabsp_pszd =. (,string)<0,8>; : prompt size 
; 4616 4629 inrabCrab$l_ubf) = .buffer; : buffer address 
3 4617 4630 ; inrabCrab$w_usz] = .len; ! buffer size 
; 2 
: : 
3 2 


if (insize = .inrabCrab$w_rsz]) neq 0 ! get input size 
then 
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; Routine Size: 


prompt terminal for input 


gin 
incru i to .insize = 1 
do 


be 
#9'0 -bufferl.i]_gequ ‘a’ and 
then bufferl.i] = “bul fert. 


5 
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000000006 4 
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! Upcasing is done here because the CVT 
! option does not work under batch. 


ASK, Save R2 
NSIZE 


LEN, INRAB+32 
Me RAB 


are tit h 
#98938 


1d, 
INAABY S47 INSIZE 
#1, INSIZE, R1 


4$ 
GQUPrenti #97 


@BUFFERCIJ, #122 
#32, @BUFFERCII 


i, R1 
2$ 
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$364:9% UAF .BUG ; ’ (37) 
%sbttl ‘fmt sys_msg - output system message file message’ 
ne oe routine fmt_sys_msg (faostr, msgid, pl) : novalue = 


144 
! 


i FUNCTIONAL DESCRIPTION: 
This routine outputs an error message followed by 
the text found in the system message file for the 
error condition, If the message is not found, the message 
ID itself is printed. 
INPUTS: 
FAOSTR = address of counted ascii message to be printed 
MSGID = error number 
P1 - the first of possibly several parameters to FAO 
IMPLICIT INPUTS: 
None 
OUTPU.S: 
None 
IMPLICIT OUTPUT”. 
None 
ROUTINE VALUE: 
wone 
SIDE EFFECTS: 


None 


local 
buffer : vector Seg byte], ! buffer to receive message 
bufdsc : vector £2, long], ! string descriptor 
code; ' save return code 


bufdsc{0J = 200; 
buidscilJ] = buffer; 


code = Soetmsg (msgid = .msgid, msglen = bufdsc(0), bufadr = bufdsc(0]); 
' 
| Output internal message. Then output system error or error number. 


! construct string descriptor 


geodsc Edscéu_ length) =. (.faostr)<0,8>; ! input string descriptor 
faodscl(dsc$a_pointer] = .faostr+1; 
$faol (ctrstr = faodsc 

outlen = outrablrab$w_rsz), 


—————— Sn 


UAFMAIN bs. Jan-19 24:07 AX-11 Bliss-32 V4.0-742 Page 171 
v04-000 fmt_syS_msg - output system message file messag 2-Oct- 71982 13:64:95 UAF .BUGSRC JUAFMAIN.B32; 1 . (37) 
; 469 P 4708 outbuf = disdsc, ; 
3; 469 4709 prmist = pl); ; 
: 4698 4710 3 
3; 4699 4711 re: (rab = outrab); 5 
; 4700 trig 3 
; 4701 471 code egt ss$_msgnotfnd 3 
3 470 4714 es LIBSSIGNAL (OAFS$_SYSMSG2 msgid) ; 
; 470 4715 2 else LIBSSIGNAL (UAF $~ SYSMSG1 * buf sc{0]); $ 
: 4704 4716 1 : $ 
-EXTRN SYSSGETMSG, SYSSFAOL : 
000C 00000 eENTRY FMT Bee -RsS. Save R2,R3 ; 4652 : 
53 00000000' 00 9E 4it3 MOVAB FAOBSC ; 5 
SE FF34 CE 9E 0000 MOVAB ~204 $6 SP : ; 
7E C8 8F 9A 0000 MOVZBL uF DSC : 4696 3 
04 AE 08 AE 9E 0001 MOVAB ecorene ayes ; 4697 : 
7E OF 7D 0001 MOVa at -(SP) ; 4699 $ 
08 AE 9F OOOIA PUSHAB BUFDSC : ; 
0c AE 9F 00010 PUSHAB BUFDSC g : 
08 AC DD 00020 PUSHL 3 ID 3 3 
000000006 00 05 FB BnOS 3 CALLS #5, S*SS$GETMSG : 3 
52 50 00 0002A MOVL CoD ; 3 
63 04 BC 9B Benge MOVZBW af AosTR ODSC : 4704 3 
04 A3 04 AC 01 ¢1 00031 ADDL ‘ PAOSTR FAODSC +4 + 4705 ; 
0c AC 9F 00037 PUSHAB 4 ; 4709 3 
F8 A3 9F OO03A PUSHAB DISDSC 3 3 
O72E C3 9F 00030 PUSHAB OUTRAB+34 ; 3 
53 DD 00041 PUSHL 3 3 
000000006 00 04 FB 00043 CALLS #4, SYSSFAOL 3 3 
070C C3 9F 0004A PUSHAB OUTRAB : 4711 ; 
000000006 06 4 FB BOE CALLS #1, SYSS$PUT 3 3 
00000621 _ ~—s BF 2 01 0005 CMPL CODE, #1569 3 4713 3 
0D 12 0005C BNEQ 1$ 3 3 
08 AC DD O000S5E PUSHL MSGID 7 4714 $ 
01 OD 00061 PUSHL 3 3 
00000000G 8F DD 00063 PUSHL #UAF$_SYSMSG2 3 3 
OA 11 00069 BRE 2s 3 3 
SE DD 00068 1$: FUSHL SP 3 4715 3 
01 OD eg PUSHL #1 3 3 
00000000G 8F DD 0006F PUSHL ayes SYSMSG1 3 3 
000000006 00 03 fe 4 fe 28: CALLS #3, LTB$SIGNAL : : 


4714 
; Routine Size: 125 bytes, Routine Base: S$CODE$ + 2836 


ine 


kK 1 
-Jan-19 
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v04-000 faoout = output formatted message -0ct-1984 13:01:10 UAF .BUGSRC JUAFMAIN.B32; 1 (38) 
: 4706 4717 1 &sbttl 'faoout - output formatted message’ H 
3; 4707 4718 1 global routine faoout (string, pl) = : 
; 4708 4719 egin : 
; 4709 4720 $ 
; 4710 4721 '++ ; 
; 4711 47 ¢ ' 3 
: rat 47 ! FUNCTIONAL DESCRIPTION: $ 
: 471 4724 ! PF 
3: 4714 4725 : Routine to output a formatted string. : 
: 4715 tis8 ! 3 
3: 4716 4727 ' INPUTS: 3 
3 4717 tos8 ! : 3 
; 4718 4729 ; STRING = address of a counted ASCII FAO control string. ; 
: ory res 5 Pl = the first of possibly several parameters to FAO : 
: 4721 tr e6 2 ! IMPLICIT INPUTS: F 
3; 4722 473 e! 
: 4723 4734 2! none 3 
3: 4724 4735 2! $ 
3; 4725 4736 2 ! OUTPUTS: F 
: 4726 4737 2! 3 
: 4727 4738 2! none 3 
: 4728 4739 2! F 
3 4729 4740 2 ! IMPLICIT OUTPUTS: é 
: 4720 4741 2! 3 
3: 4731 Se eq! none : 
3: 4732 4743 2! F 
3 4733 4744 2 ! ROUTINE VALUE: : 
> 4734 4745 2 ee ; 
; 4735 4746 2! FAOOUT always returns FALSE, as it is often used on the : 
3: 4736 4747 2! return from an error condition. 3 
3 4737 4748 2! 3 
: 4738 4749 2! SIDE EFFECTS: ' 3 
3: 4739 4750 2! 3 
3 4740 4751 2! none 3 
> 4741 4752 2 !-- F 
: 4742 4753 2 3 
3 4743 4754 2 ; , $ 
3 4744 4755 2 faodscCdsc$w_length] = . afr ing) <2 .0>; ! input string descriptor : 
3 4745 4756 2 faodscldsc$a_pointer) = .string+!; 3 
3 4746 P 475” 2 $faol (ctrstF = faodsc : 
3 4747 P 4758 2 outlen = outrabtrab$w_rsz], . 
: 4748 P 4759 2 outbuf = disdsc, F 
3 4749 4760 2 prmist = pl); : 
:; 4750 4761 2 : 
3: 4751 of0¢ § $put (rab = outrab); 3 
3 $726 476 ; 
3; 475 4764 e false 3 
: 6754 4765 1 end; : 
52 00000000' 00° 9 sooo MOVAB. FagDSC, RDN” ‘pecbas 
23 04 BC 9B 00009 MOVZBW a@STRING, FAODSC : 4755 : 


faoout = output formatted message 


; Routine Size: 


A2 04 AC 01 
Of A 

F A 

072E f 
000000006 00 04 
070C 2 
000000006 Ov 5 


52 bytes, Routine Base: $CODE$S + 2883 
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STRING, FAODSC+4 
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v04-000 help_uaf - help routine ety 15364;90 UAF .BUGSRCIUAFMAIN.B32¢1 (39) 


4756 1506 1 &sbttl "help_uaf - help routine’ 
4757 4767 1 oe ny routine help_uaf : novalue = 
4758 4768 § egin 
4759 4769 
4760 4770 '+4 
4761 4771 ! 
of6 477 ' FUNCTIONAL DESCRIPTION: 
476 477 ‘ 
4764 4774 : Print out the help message or messages. 
4765 4775 : 
4766 4776 ' INPUTS: 
4767 4777 ! 
4768 4778 ! none 
4769 4779 ‘ 
4770 4780 ' OUTPUTS: 
4771 4781 ! 
4772 rh} ‘ none 
4773 478 ' 
4774 4784 ' ROUTINE VALUE: 
4775 4785 ' 
4776 4786 ‘ none 
4777 4787 ! 
4778 4788 ' SIDE EFFECTS: 
4779 4789 ! 
4780 4790 } none 
4781 4791 ed 
4782 479 
4783 479 ma 
cmdlindsc: vector; 
4785 4795 
4786 47% local 
4787 4797 Line_dsc : vector (2); 


ine_dscCOJ = .cmdlindsc(0]; 


4790 4800 ine_dsc(1) = .cmdlindsc(1]; 

4791 4801 

4792 4802 P 
4793 4803 The first thing to do is to remove ‘help’ from the command Line 


Find the beginning of the word ‘help’. 


L 
l 
' 
i 
and give the help routine the remainger of the command Line. 
i , 
if .(.line_dscl1))<0,8> eql * ' 

then 

begin : 
Line_dscl1] = ch$find_no 


tich (.tine dsl]. line geet) * Shy 
Line dsc 0] = .line_dscCOJ - (.Line-dscC1 
end; 


- .cmdlindscl1}); 


= 
@ 
oO 
—_ 
= 
cD 


Now skip past the ‘help’ to the first blank (if there is one) 
if ch$fail (lLine_dsc{1] = ch$find_ch (.Line_dscl0J, .line_dsc(1), ' ')) 
then 

' 


; No blank, set empty string 
Line_dscl0) = 0 
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UAF MAIN 
V04-000 


help_uaf = help routine 


CONOUE 


SEP 
00009000000 


BNOUS WMO” 


FS ot af at at at 
©00000000000< 2 


04 


04 


| 
; 
; 


eise 


Found a blank, set pointer to it 
Line_dscl0] = .cmdlindscl0] - (.line.dscl1] - .cmdlindsc(1)); 


Start an interactive HELP session 


if not lbr$output_help C1 ibSput output. 0 


end; 


BE 


5U 


li 


saget... input) 
then LIBSSIGNAL (UAFS$_HELPERR) ; 


70 6C 65 68 66 61 75 


04 


04 


04 


00000007 
00000000" 
000¢ 
04 C2 
00000000" 00 00 
53 DD 
00000000" 00 00 
52 D0 
06 BE 91 
15 12 
20 38 
02 2 
51 D4 
31 00 
06 AE C 
50 ¢0 
20 3A 
02 12 
51 D4 
31 09 
04 1 
6E D4 
09 11 
06 AE CS 
53 Ci 
000000006 90 9 
00000000" 06 9F 
OC AE OF 


COOCOCCOCCooooo 
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*") 


1$: 


28: 


3$: 


4$: 
5$: 


~PSECT 
ASCII 
LKB 


UAF .BUGSRC 


SPLITS,NOWRT,NOEXE,2 
quarheten 


-LONG 7 
»ADDRESS P.AFN 


SCODES ,NOWRT,2 

HELP UAF . Save R2,R3 
CMDLINDSC, R3 
CMDLINDSC+4, R2 

R2, LINE DSC+4 
@LINE_DSC+4, #32 


Ht LINE_DSC, @LINE_DSC+4 


, LINE_DSC+4 
NE_DSC 
NE_DSC+4, R2 
RO, LINE DSC 
GEf_INPUT 


P.AFM 
LINE _OSC 


RO 
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UAF MAIN ; p- Jan-1985 17: eee :07 AX-11 Bliss-32 V4.0-742 Page 176 
v04-000 help_uaf = help routine -0ct-1984 15 1:10 UAF .BUGSRC JUAFMAIN.B32; 1 (39) 
7E 04 00061 CLRL (SP) ; 
000000006 00 9F 00063 PUSHAB LIB$PUT OUTPUT ; 
000000006 00 06 FB 00069 CALLS #6, LBRSOUTPUT_HELP ; 
50 €8 00070 BLBS RO, 6$ 3 
000000606 8F dD 00073 PUSHL HUAFS HELPERR 3 4836 
000000006 00 01 FB 00079 CALLS , LYBSSIGNAL ; 
04 00080 6$: RET ; 4838 


; Routine Size: 129 bytes, Routine Base: S$CODE$ + 28E7 


A, LIB$S1GNAL (UAF $_DONEMSG) ! tell user all is done 
se 


: Here, no modifications were made to file. 
LIBSSIGNAL (UAF$_NC*ODS) ; 

if .netuaf_exists 

then 


begin . 
if not .netuaf_modified 


then 
LIB$SIGNAL (UAF $_NAFNOMODS) 
se 
4 LIBSSIGNAL (UAF $_NAF DONEMSG); 
nd; 


¢ 
¢ 
i" 
¢ 
¢ 
¢ 
i" 
( 


if .rdb_exists 
then 


2 
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v04-000 exit_uaf = normal exit routine 0c t-1984 15:81:90 UAF .BUGSRC UAFMAL -B32;1 ’ (40) 
; 4830 4839 1 Xsbttl ‘exit_uaf = normal exit routine’ ; 
; 4831 4840 1 global routine exit_uaf : novalue = : 
: 48 ¢ 4841 egin 3( 
3; 48 484 : 
3 4834 484 '+¢ ; 
> 4835 4844 ' : 
; 4836 4845 ! FUNCTIONAL DESCRIPTION: ; 
3; 4837 4846 ‘ ; 
; 4838 4847 Normal exit routine. ; 
: 4839 4848 ; 
; 4860 4849 i INPUTS: ‘ 
> 4841 teee § ' . 
; 484 4851 ! none . 
484 me Ti ! : 
4844 485 i OUTPUTS: . 
4845 4854 ' : 
4846 4855 2! none : 
4847 4856 2 | : 
4848 4857 2 ROUTINE VALUE: ’ 
4849 4858 2 | : 
4850 4859 2! none 
4851 4860 2! 
485 4861 i SIDE EFFECTS: 
485 486 i 
4854 486 i image exits 
4855 4864 2 i- 
4856 4865 2 
4857 4866 2 $close (fab = uaffab): 
4858 4867 2 
4859 4868 2 ! ; tes 
4860 4869 § ' Inform user of file modifications. 
4861 4870 ! 
486 4871 2 
486 487 if .modify_flag 
4864 487 then 
4866 4875 2 ! File has been modified 
4867 4876 § : 
4868 4877 

| ¢ 


+ 4865 4874 


UAFMAIN b 
v04-000 exit_uaf = normal exit routine 
; 4887 489 begin : 
; 4888 489 if .rightslist_modified 
; 4889 4898 then 
| § 4890 4899 
; 4891 4900 ! File has been medified 
: 489 4991 ' 
; 489 490 L1B$S1GNAL (UAF $_RDBDONEMSG) 
: 4894 490 else 
; 4895 4904 ! 
; 4896 4905 ' Here, no modifications were made to file. 
; 4897 4906 ' 
; 4898 4907 L1IB$SIGNAL (UAF$_RDBNOMODS) ; 
: 4899 4908 nd ; 
: 4900 4909 
: 4901 4910 2 Sexit (code = true); 
; 4902 4911 1 end; 


001C 00000 
54 00000000‘ 00 9€ 00002 
53 i444 00 9E 00009 
52 000000006 00 9€ 00010 
54 DD 00017 
000000006 00 01 FB 00019 
08 F154 C4 £9 00020 
000000006 8F DD 00025 
6 11 00028 
000000006 8F DD 000 4 
62 01 FB 000 
16 63 €9 O80 
08 F158 C4 E8 00039 
000000006 8F DD 0003 
06 11 00044 
000000006 a DD 00046 
6 1 FB 0004C 
15 04 AS €E9 0004F 
08 Oc AS €E9 00053 
000000006 8F DD 00057 
06 11 0005 
000000006 8F DD 0005 
2 01 FB 00065 
01 0d 000 
000000006 00 01 FB OO06A 
04 00071 


; Routine Size: 114 bytes, Routine Base: S$CODE$S + 2968 
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$n 


ine Oi ieee V4.0-742 
UAF .BUGSRL JUAFMAIN.B32;1 


' tell user all is done 


~EXTRN 


SYSSEXIT 
EXIT_UAF, Save R2,R3,R4 
NP TUAT EXISTS R3 
LIBSSIGNAL, Rd 
#1, SYS$CLOSE 
MODIFY FLAG, 1$ 
SUAFS_BONERSG 


2 
#UAF$ _NOMODS 


4 
#UAFS NAF DONEMSG 

#1, LTBSSIGNAL 
RDB_EXISTS, 8$ 
RIGATSLIST MODIFIED, 6$ 
SAF S_RDBDONEMSG 


#UAFS%_RDBNOMODS 
a. LTB$SIGNAL 


#1, SYSSEXIT 


Page 178 
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UAF MAIN 

v04-000 SIGNAL SYNTAX = Report missing qualifier 

; 4904 4912 1 &sbttl "SIGNAL_SYNTAX = Report missing qualifier’ 
; 4905 4915 1 global routine SIGNAL_SYNTAX: novalue = 

; 4906 4914 egin 

3; 4907 4915 

; 4908 4916 LIBSSIGNAL (UAF$_ZISQUAL); 

; 4909 4917 2 

; 4910 4918 1 end; 


0000 00000 

000000006 8F DD 00002 
01 FB 00008 

04 0000F 


Routine Size: 16 bytes, Routine Base: S$CODE$S + 29DA 


000000006 00 


ou 


$707 ee Bliss-32 V4.0-742 


UAF .BUGSRC JUAFMAIN.B32;1 


ENTRY SIGNAL SYNTAX, Save nothing 


PUSHL 
CALLS 
RET 


MUAF$_7ISQUAL 
#1, LTBSSIGNAL 


Page 179 
. (41) 


; 4913 
; 4916 


; 4918 


vt 


Routine Size: 


accS$exit = exit and cleanup routine 
4919 1 &sbttl ‘accS$exit - exit and cleanup routine’ 


4920 1 routine acc$exit : novalue = 
4921 begin 

49 ¢ 

49 '4¢ 

4924 ' 

rf 5 } FUNCTIONAL DESCRIPTION: 
2959 : Exit on error condition. 
4928 2 | 

4929 ' INPUTS: 

4930 § ‘ 

4931 : none 

1338 e! 

4935 2 ! OUTPUTS: 

4934 2! 

4935 ‘ none 

19°4 § leo 

4.37 2 

4138 2 $Sexii 0); 

4939 1 end: 


0000 00000 ACCSEXIT: 
01 Dd 00002 PUSHL 
01 FB 00004 CALLS 

04 00008 RET 


SCODES + 296A 


000000006 00 


12 bytes, Routine Base: 


bedi 19h 1556: 


7 AX-11 Bliss-32 v4.0-742 Page 180 
0 UAF. BUCSRETUAF MAIN Bos ° (235 
Save nothing ; 4920 
; 4938 

#i, SYSSEXIT : 
; 4939 


oarnale §-Jan-19 5 17: $430 07 AX-11 diag. -32 V4.0-742 Page At 
v04-000 UAFSMOD_SYS_PWD == modify the system password “0c t-1984 1 10 UAF "ues AFMAI IN.B32;1 
; 4934 4940 1 Xsbttl "UAFSMOD SYS PWD <= modify the system password’ 

4935 4941 1 Lobal routine OAFSMOD_SYS_PWD: novalue 

4936 494 egin 

4937 494 

4938 4944 ‘e+ 

4939 4945 i 

4940 4946 i Functional Description: 

4941 4947 ' 

494 4948 i Modify the system password record by doing a $PUT on the UAF 

494 4949 i with the UIF bit set for the username ''<System+Password>'’’ 

4944 4950 i 

4945 4951 ie 

4946 $326 

4947 495 local 

4948 4954 

4949 4955 RBF, 

4950 4956 PWD: blockCDSC D_BLN byte 

4951 4957 preset ((DSCSB~ CLASS PscsK _CLASS_D), 

495 4958 H 

495 4959 


4954 4960 
6 ; Save current settings 


. UAF RABCRABSL_RBF J; 


4959 4965 ROP . UAFRABCRABSL ROP J; 
4960 4966 
4961 4967 ' 
: Get new password and encrypt it 
4963 4969 : 
4964 4970 
rhsd red CLISGET_VALUE(Zascid'SYSTEM_PASSWORD', PWD); 
4987 497 if .PWOCDSC$W_LENGTH] neq 0 then 
rise 4 rh te tek LGISHPWD (REC -ENCRYPT_DSC, PUD, UAFSC_PURDY_V, 0, ZASCID'<System+Password>') 
4970 4976 ChSfiLL(O, UAF$S_PWD, RECBUFCUAF$Q_PWD)); 
4971 4977 
4973 4979 ! Fill in fields of the UAF record 
4974 4980 ! 
4975 49 
4976 498 ch$copy(17, UPLIT('<System+Password> 
4977 49 UAE $S_USERNAM . RECBUF LUAFST. USERNAME) ; 
4978 4984 ? RECBUFCUAF SW *SALTI i! 
4979 498 
4980 4986 ‘ 


Modify the RAB for our needs 


UAF RABLRABSW_RSZ 
UAF RABCRABSL _RBF 


' 
Modify the system password 


UAF RABCRABSV_ mi 


1; 
UAFS$C_LENGTH; 
RECBUF ; 
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UAF RABCRABSL_RBF 
UAF RABCRABSL_ROP 


57 53 53 41 


77 73 «73 «61 


oT ve Fo. 


SPUT (RAB=UAF RAB) ; 


Replace the settings 


oRBF; 
eROP; 


45 54 53 59 3 te P.AFP: 
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00 00 00 3 
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2 
yan-1985 17:24:07 VAXe11 bs 
et EERE, Bee sUArmAti Bese 


UAF .BU AIN.B32; 1 


-PSECT S$PLITS,NOWRT,NOEXE,2 

ASCII \SYSTEM_PASSWORD\<0> 

-LONG 17694735 

eADDRESS P.AFP 

ASCII \<System+Password>\<0><0><0> 
«LONG 17694737 


ADDRESS P.AFR 
ASCII \<System*Password>\<0><0><0> 


-PSECT SCODES,NOWRT,2 
-ENTRY USF SROD_SYS_PUD. Save R2,R3,R4,R5,R6,R7,R8,- 


P.AFO, R9 
UAFRAB+40, RB 


MOV 
SUBL2 #4 x 

PUSHL #385 4432 

CLRL 

MOVL OAPRAB +O, RBF 
MOVE UAFRABS 4 ROP 
PUSHR a” mck 

CALLS eLiscer _VALUE 
TSTW Pus 

BEQL 

PUSHAB 4 AFQ 

MOVO = #2, -=(SP) 

PUSHAB PW 

PUSHAB REC_ENCRYPT DSC 
CALLS #5, “LGISHPWD 


MOVCS #0, (SP), #0, #8, RECBUF +340 
MOVCS #17, P.AFS, #32, #32, RECBUF+4 
CLRW RECBUF +358 

AF RAB+ 
MOVW riei2e UAF RAB+34 


om 


UAF MAIN Jan-1985 17:24: AX-11 Bliss-32 By 742 Page 183 
V06-000 UAFSMOD_SYS_PWD -- modify the system password b-sn- 1982 13: ‘61 4 UAF .BUGSRC JUAF MA N.B32;1 ° (43) 
68 FOFO }§=6C8 «69E 00067 MOVAB_ RECBUF, UAFRAB+40 3 4992 
D8 AB YF 0006C PUSHAB UAFRAB i; 4998 
000000006 00 01 FB OO06F CALLS #1, SYS$PUT : 
68 57 dO 00076 MOVL RBF, UAFRAB+40 : 5004 
DC = AB 56 00 00079 MOVL ROP, UAFRAB+4 : 5005 
04 00070 RET ; 5007 


; Routine Size: 126 bytes, Routine Base: S$CODE$ + 29F6 


2 
UAF MAIN =Jan-1985 17:24:07 AX-11 Bliss-32 V4.0-742 Page 184 
VO6-000 security audit - perform a security audit B-an-1985 15:81:% UAF .BUGSRC JUAF MAIN.832; 1 eat ys) 


; 5003 08 1 Xsbttl ‘security_audit - perform a security audit’ 

; 5004 $09 1 routine security audit (code, old_user) : hovalue = 

; 006 oH begin 

: 500 1 rey 

; 5008 518 : 

3 Ot0 bie FUNCTIONAL DESCRIPTION: 

: $0) S018 ! Perform a security audit, if needed. 

; oi$ $018 i INPUTS: 

: 218 6 0 i CODE = Security audit record id 

3 2518 33 1 OLD_USER = Old username (optional depending on the record id) 
3 2018 5098 { IMPLICIT INPUTS: 

: 305s 5025 i PCB_STS = This process's PCB status 

: esl 2066 UAFSGQ_SYSUAFF = SYSUAF fields modified 

: 2058 5028 2 | OUTPUTS: 

: 5024 444 ! 

: 5025 5030 ! none 

: 5020 5031 ! 

: 2056 2038 IMPLICIT OUTPUTS: 

; 2068 5034 i none 

; 50 5035 ! 

: 203) e038 } ROUTINE VALUE: 

: 5033 5038 i none 

; 5034 5039 ! 

H 20% epee ; SIDE EFFECTS: 

: 5037 3048 i none 

; 5038 504 ‘ 

: 5039 5044 leo 

; 5040 5045 

3; 5041 anes external routine 

5 aneg oper nsaSevent_audit; ! Kernel mode auditing routine 
> 5044 2009 external 

: 5045 5050 nsa$gr_alarmvec : block f-byte. ' Security audit alarm vector 
: ape6 203) nsa$gr_journvec : block C,byte]; ! Security audit journal vector 
; 2068 3038 macro 

; 5049 Mm 5054 add_quad_pecket(type, a_quad) = ! Add a quadword packet to list 
3 2020 ™ 5055 begin ; ° 

; 5051 M 3$ C-arglist ptr)<0,16> = Iname('nsaSk_pkttyp_', type); 

3 2036 m 505 arglist_ptr = eargtist.otr + 2; 

; 505 i B28 coargt ist ptr)<0,16> = nsaSk_arg_mech_quad; 

; e038 m 505 arglist_ptr = ebrgsist_per +72; 

; 5055 m (,arglist_ptr)<0,52> =". (a_quad)<0, 32>; 

3 2026 # 1 arglist_ptr = ebrghist.otr + 4; 

3; $05 s ¢ (.arglist ptr)<0,52> =". (a_quad)<32,32>; 

; 2828 id é arglist_ptr = sarglist_ptr + 4; 

; 5059 M 5064 arglist[nsa$b_arg_pktnim] = .arglist(nsa$b_arg_pktnum) + 1; 
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b-Jan-19 5 12: g3:07 AX-11 Blis 


“Oc t-1984 1 UAF .BUGSR Clu 


endi, 
add ~fescr. packet(type, len, ptr) = : aad 8 descriptor packet to List 


Cearg list phte)<d. 1 = Iinzme(' * al apectyp_', type); 
orgl ts *h. ptr = argh st.rcr + 
sooty. st eters ee = = nsash_ Laie. mech_descr; 
oral ptr = or yis 
-arglist ete? < > = ens 
arglts st_ptr = ebrgs st_ptr + 4; 
soar LiSt_ptrd< > ="ptr; 
argl st_ptr = .arglist_ptr + 4; 
argtistCnsasb, arg_pktnum) = .arglist(nsa$b_arg_pktnum] + 1; 


local 
arglist bloc ! ar ex hee for NSASEVENT_AUDIT 
. tnsask. arghdr_ loeech + ((2 + 2 +98) ® yte 
arglist_ptr; ! Packet ul ia pointer 


chSfiLL(O, Zallocation(arglist), arglist); ! Clear out the argument List 


if .nsa$gr_alarmvec(nsa$v_evt_uaf ! If alarm auditing, 
then arglisSt(nsa$v_arg_flag_alarm) = true; | perform alarm audit 


if snseSer jpurnyec(nssty, evt_uaf ! If journal ys then 
then arglist(nsa$v_arg_flag_journ) = true; | perform journal audit 


if .pcb_ pystpe itgestttentochty., secaudit)] ! If mandatory auditing, 
then arglist(nsa$v_arg_flag_mandy) = true; ! perform mandatory audit 


if .arglist(nsa$b_arg_flag] eql 0 ! If no audit requested, 
then return; i simply exit 


arglist(nsa$l_arg_id] = .code; ! Set audit record type/subtype 
arglist_ptr = arglist(nsa$t_arg_ list]; ! Address packet(s) in arg List 


:. sarglistinsesu_ arg_type. eql nsaS$k -rectyp. oyevet ‘ 
recor Sees 


he in 
papsecote arg_subtype) neq nsaSk_rectyp_sysuaf_del 


d_quad B= 5 phd di uaf$gq_sysuaff); 
add eet packet (usernam 
name len(uaf$s Tectia, recbufCuaf$t_username]), 
recbufCuaf$t_username)); 
if .arglist(nsa$w_arg_subtype] eql nsask. _rectyp_sysuaf_cop 
or .arglist(nsa$w_arg_subtype) eql nsa$k_rectyp_sysuaf_ren 
en 


add_descr_packet (usernam 
namelen(uaf$s_username, .old_user), 
-old_user); 
end 
else ' For NETUAF records... 


ot _descr_packet (nodenam 
nameleninat$s node, netbuf(naf$t_node]), 
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2 
UAFMAIN =Jan-1985 17:24:07 AX-11 Bliss-32 V4.0-742 ° 1 
¥06~000 security_audit - perform a security audit b-an-1985 15384;96 {UAF .BUGSRe UAFMAIN.B32;1 age 18 
; 5117 1 g netbuf(naf$t_node)); ; 
: 2118 P 51 add_descr_packet (usernam ; 
; $11 P 5124 namelen(naf$s_remuser netbuf(naf$t_remuser]), ‘ 
; 3120 2} 5 netbuf(naf$t_remuser]); : 
; 2} 1 P 51 § add_descr_packet (usernam PF 
; 51 ¢ P 2} namelen(naf$s_localuser netbuf(naf$t_localuser]), : 
; 51 128 netbuf(naf$t_CocaluserJ]); ; 
: 5124 5129 if .arglist(nsa$w_arg subtype] eql nsa$k_rectyp_netuaf_mod : 
; 2 5 5130 then : 
3; 51 § 2} 1 4 beats : 
3 3) P 51 ; 4 add_descr_packet (nodenam 3 
3 3} 8 P 51 4 naneLeninat$s node netbuf(naf$t_node]), : 
3 31 5134 4 netbuf(naf$t_nodel); ‘ 
; 51350 P5135 4 add_descr_packet (usernam $ 
; 5131 P 5136 4 namelen(naf$s_remuser, netbuf(naf$t_remuser]), ’ 
; 313¢ 3137 4 netbuf(naf$t_remuser]); : 
5 33 P5138 4 add_descr_packet (usernam, : 
; 5134 P 5139 4 namelen(uaf$s_username, .old_user), : 
; 5135 5140 4 -old_user); : 
; 5136 5141 3 end; : 
He = Hy fo : 
3 bed 3168 § arglist(nsa$l_arg_count] = (.arglist_ptr - (arglist + 4)) / 4; ! Set # args ; 
3 2i¢) 3166 § Scmkrni(routin = nsa$event_audit, arglst = arglist); ! Do the security audit : 
: 3103 5148 1 end; : 
-EXTRN WNSASEVENT_AUDIT : 
-EXTRN NSASGR_ALARMVEC : 
-EXTRN NSAS$GR_ JOURNVEC : 
-EXTRN SYSSCMRRNL : 
007C 00000 SECURITY_AUDIT: : 
-WORD Save R2,R3,R4,R5,R6 ; 5009 
56 00000000" 00 9€E 00002 MOVAB NETBUF, R6 3 
SE AC AE 9E 00009 MOVAB =84(SPS, SP ; 
0054 8F 00 6€ 00 2c 99000 MOVCS #0, (SP), #0, #84, ARGLIST ; 5084 
04 000000006 00 $5 + 00015 BBC #2, NSASGR A ARPNEC., 1$ : 5086 
i AE 01 88 0001D BISB2 #1, ARGLIST+ ; 5087 
04 000000006 00 8 + 38 1 1$: BBC #2, NSASGR_JOURNVEC, 2$ : 5089 
0 AE 8 00029 BISB2 #2, ARGLIST+ ; 5098 
04 00000000 00 0 1 000 3 2$: BBC #3, PCB_STS+3, 3$ ; 509 
08 AE 04 2 00 BISB2 #4 anec ist +6 ; 509 
08 AE 0039 3$: TSTB = ARGLIST* : 509 
01 Ag C pee’ 4$ : 
04 ac oe AC gO OSF 4$: MOVL CODE, ARGLIST+4 : 2088 
5 C AE 9E 00044 MOVAB ARGLIST+12, ARGLIST_PTR : 5100 
02 04 AE 61 48 CMPW ARGLIST#4, #2 ; 5102 
3c «(12 4C BNEQ 6$ 3 
02 06 A a 3s cw ARGLIST+6, #2 ; 5105 
82 00030012 F 00 00054 MOVL #196626, (ARGLIST_PTR)+ ; 5107 


2 | 
UAFMAIN , g-Je019 5 17:36:07 ne) Bliss-32 V4.0-742 Page 187 | UA 
v04-000 security audit - perform a security audit -0ct-1984 13:01:10 UAF .BUGSRC JUAFMAIN.832; 1 (44) 


82 FOF8 C6 7D 005 MOVO = UAFS$GQ_SYSUAFF, (ARGLIST_PTR)+ ; 
8 AE 38 06 INCB AR T+9 : 
82 0004000A F : 0063 5$: MOVL 4, (ARGLIST_PTR)+ : 5110 
FABO C6 0 3a 00 6A LOCC. #32, #32, RECBUF +S F 
82 ) 0 g3 0 SUBL3 RO, #32, (AFGLIST PTR)+ : 
FABO § C6 9E 00074 MOVAB RECBUF+S. (ARGLIST_PTR)+ : 
09 AE 96 00079 INCB = ARGLIST+9 : 
04 06 AE 8} 007¢ CMPW = ARGLIST#6, #6 + $111 
7D 13 000 BEQL 3 : 
05 06 A Bi 00082 CMPW 3s ARGLIST+6, #5 + $112 
4 if 00 BNEQ 6 7$ : 
75 1 00 BRB 8 : 5116 
82 00040009 8F po OBA 6$ MOVL @ 2153 (ARGLIST_PTR)*+ : 5122 
66 20 0 3a 00091 LOCC. #32, #32, NETBUF : 
82 20 0 3 00095 SUBL3 RO, #32, (ARGLIST_PTR)+ : 
2 66 9E 90099 MOVAB NETBUF, (ARGLIST_PTR)+ : 
09 AE 96 0009C INCE ARGL IST +9 ; 
83 0004000A = 8F 00 0009F MOVL Hes 154, (ARGLIST_PTR)+ > 5125 
20 A6 2 0 3A 000A6 LOCC. —_- #32, #32, NE TBUF +32 : 
82 20 0 (C3 O00AB SUBL3 RO, #32, (ARGLIST PTR)+ : 
82 20 Ab SE OOOAF MOVAB NETBUF+$2, (ARGLIST_PTR)+ : 
09 AE 96 00083 INCB ASGLIST* ; 
82 0004000A 8F p0 00086 MOVL Hes 154, (ARGLIST_PTR)+ > 5128 
40 Ab 20 20 3A 000B8D LOCC #32, #32, NETBUF +86 - : 
B82 20 50 C3 000C2 SUBL3 RO, #32, (ARGLIST PTR)+ : 
82 “09 a6 9E 000C6 MOVAB NETBUF+64, (ARGLIST_PTR)+ : 
09 AE 96 OOOCA INCB — ARGLIST#9 : 
03 06 AE 61 000CD CMPW 3s ARGLIST+6, #3 : $129 | 
43 12 00001 7$: BNEQ : 
82 00040009 =F 00 000D3 MOVL #62153 (ARGLIST_PTR)+ > 5134 
rx. 20 0 3A OOODA LOCC. #32, #32, NETBUF F 
ae 20 0 ¢3 000D SUBL3 RO, #32, (ARGLIST_PTR)+ : 
82 66 9E OO0E MOVAB NETBUF, (ARGLIST_PTR)+ : 
09 AE 96 O00E INCB  — ARGLIST+9 : 
82 0004000A BF 00 000€8 MOVL #262154, (ARGLIST_PTR)+ : §1°%? 
20 Ab 20 20 3h OOOEF LOCC. —_s«#32, #30, NE TBUF +32 ; 
82 20 50 C3 O00F4 SUBL3. RO, #32, (ARGLIST PTR)+ : 
82 20 Ab 9E 000F8 MOVAB we FUE + $2. (ARGLIST_PTR) + : 
09 AE 96 OODFC INCB = ARGLIST* F 
82 0004000A 8F po OOFF 8$: MOVL sot $ 154, (ARGLIST_PTR)+ + $140 
08 BC 20 0 3A 00106 LOCC. #32, #32, a0L5 USER : 
82 0 0 3 0108 SUBL3 RO, #32, (ARGLTST_PTR)+ ; 
2 08 AC DO 0010F MOVL  OLO_USER, (ARGLIST_PTR)+ : 
09 AE 36 00115 INCB. = ARGL IST +9 .* 
50 4 AE 116 9$: MOV ARGLIST+4, RO : 516! 
g 50 ¢ 011A UBL2 RO, R ; 
6E é 04 C? 0011D DIVL3 #4, R2, ARGLIST ; 
—E OD 001 1 PUSHL SP > 5146 
000000006 00 9F 00123 PUSHAB NSASEVENT AUDIT F 
000000006 00 02 FB 001 9 CALLS #2, SYSSCAKRNL ; 
04 001 eT > $148 


: Routine Size: 305 bytes, Routine Base: S$CODE$ + 2A74 
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UAF MAIN -Jan-1985 17: 4:97 AX-11 Bliss-32 v4.0-742 Page 1 
v04-000 security_audit - perform a security audit Ban 1984 13:01:10 UAF .BUGSRC JUAFMAIN.832;1 wal | ) 
: 5145 5149 1 end ! End of module 
: 5146 5150 0 eludom 
-EXTRN LIBSSTOP 
PSECT SUMMARY ; 
Name Bytes Attributes 

SPLITS 2316 Sevan OMA « RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 

SOUNS $393 NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL. CON,NOPIC,ALIGN(2) 

$GLOBALS 2 ¢ NOVEC, WRT. RD »NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 

SCODES 11173 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 

- ABS 0 NOVEC, ‘NOWRT, * NORD ;NOEXE -NOSHR, LCL, ABS, CON,NOPIC,ALIGN(O) 
; Library Statistics 
: ouasnenne Symbols -------- Pages Processing 
3 File Total Loaded Percent Mapped Time 
: _$255$DUA18:CSYSLIBILIB.L32;1 18619 300 1 1000 00:01.4 


Compi 


COMMAND QUALIFIERS 


BLISS/CHECK=(FIELD, INITIAL ,OPTIMIZE)/LIS=L1S$:UAFMAIN/OBJ=OBJ$:UAFMAIN MSRC$:UAFMAIN/UPDATE= (BUGS: UAF MAIN) 


; Size: 
Rin Time: 02:11.0 
Elapsed Time: 05:57.8 


Lines/CPU Min: 358 

Lexemes/CPU-Min: 38325 

poe S| Used: 654 pages 
a 


tion Complete 
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